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Vorwort 



Dieses Buch vermittelt Ihnen theoretische und praktische 
Kenntnisse fur die Anwendung des Home-Computers 
COLOUR-GENIE. Sowohl die groBe Vielfalt der Einsatzge- 
biete eines solchen Rechners als auch die Fulle von BASIC- 
Anweisungen und Syntax- Regeln kann besonders bei Anfan- 
gern leicht zu einer gewissen Hilflosigkeit fuhren. ' 

Damit dies nicht geschieht, sollten Sie Ihren Rechner von 
Anfang an schrittweise beherrschen lernen. In diesem Sinne 
ist das Buch aufgebaut. Das beim Erwerb des Colour-Genie 
mitgelieferte BASIC-Handbuch mit dem Titel „COLOUR 
BASIC — leicht gemacht" soil Ihnen parallel dazu als Nach- 
schlageverzeichnis und Erganzung dienen. 



An dieser Stelle danken wir der Firma Trommeschlager 
Computer GmbH, St. Augustin, fur die Unterstutzung und 
freundliche Zusammenarbeit. 



Kapitel J_ 

Uber den Rechner 



Wie viele Rechner in seiner Preisklasse verfugt das Colour-Genie iiber 
eine Reihe von Eigenschaften, die es als geradezu ideal fur den Einstieg 
in das Computerhobby ausweisen. Eine ansprechende Tastatur, grafische 
und farbige Darstellungsmoglichkeiten, Tonerzeugung so wie ein umfas- 
sender Befehlsvorrat stellen nahezu optimale Ausgangsvoraussetzungen 
dafiir dar, die Programmiersprache BASIC zu erlernen, ohne gleich an 
die Grenzen dieses Rechners zu stoBen. Auf diese Weise ist fur nahezu 
jede potentielle Anwendung eine Basis geschaffen. 

Bevor wir im einzelnen auf solche Rechnerkomponenten wie Prozessor, 
Speicher-ICs und Tongeneratorbaustein eingehen, sollen Sie einen gro- 
ben Uberblick dariiber erhalten, welche Merkmale das Colour-Genie als 
solches kennzeichnen. 

Das Colour-Genie gehort zur Familie der Z80-Rechner. Diese Bezeich- 
nung ist auf den Prozessortyp zuruckzufuhren. Der Prozessor ist das 
Kernstiick ernes jeden Rechners. Es handelt sich um einen IC-Baustein, 
der in der Lage ist, mit hoher Geschwindigkeit Befehle , z. B . Rechenope- 
rationen, auszufiihren. Ein Prozessor ist das Steuerelement fur jede Akti- 
vitat, die ein Rechner ausfuhrt. Aus diesem Grunde nennt man den Pro- 
zessor auch haufig die „Zentraleinheit" oder verwendet dafur den engli- 
schen Ausdruck CPU. Die Zentraleinheit des Colour-Genie tragt die 
Bezeichnung Z80-CPU. 

Ein weiteres Merkmal des Colour-Genie ist der BASIC-Interpreter der 
Firma Microsoft. Ein Interpreter ist ein Programm, das u. a. in der Lage 
ist, iiber die Tastatur eingegebene Anweisungen zu analysieren und diese 
an den Prozessor als Folge von codierten Anweisungen, die Maschinen- 
spracheinstruktionen, weiterzugeben. Die gesamte Arbeit des Mikropro- 
zessors Z80 wird nur iiber solche Maschinenbefehle gesteuert. Hierzu 
zahlen Befehle wie beispiels weise: 

Lade den Wert 4 in den Akkumulator (Rechenwerk) 
Addiere eine Zahl zum Akkumulator 
Verzweige zu einer vorgegebenen Speicheradresse 
Fiihre einen Vergleich durch 



LD 


A,4 


ADD 


A,4 


JP 


4000H 


CP 


B 
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Zur Steuerung des Rechners sind also Maschinenbefehle erforderlich. 
Sofern fiir eine durchzufuhrende Arbeit mehrere Maschinenbefehle hin- 
tereinander vom Rechner ausgefiihrt werden miissen, spricht man von 
einer Maschinenroutine. 

Der BASIC-Interpreter besteht aus einer Vielzahl solcher Maschinenrou- 
tinen. Eine elementar wichtige Routine ist die Monitor- und Bootroutine. 
Die erste Aufgabe dieses Interpretersegments besteht darin, den Rechner 
nach dem Einschalten in Millisekunden von „0 auf 100" zu bringen. In die- 
ser Phase werden die erforderlichen Startwerte fiir die Tastatureingabe 
sowie fiir die Bildschirmausgabe gesetzt. 

Nachdem diese Startwerte gesetzt sind, steht der Interpreter bereit zur 
Kontrolle der verschiedenen Bildschirm- und Tastaturoperationen. Je 
nach Art der iiber die Tastatur eingegebenen Anweisungen werden danir 
andere Maschinenroutinen vom Prozessor abgearbeitet: Routinen fiir die 
Verarbeitung der Eingabe, Arithmetikroutinen, Ausgaberoutinen etc. 

Jeder Interpreter stellt also ein kompliziertes Gebilde von Maschinenrou- 
tinen dar, die die Fahigkeiten eines Rechners ausmachen. Der BASIC- 
Interpreter der Firma Microsoft ist mittlerweile auf derart viele Z80- 
Rechnersysteme angepaBt, daB man von einem Microsoft-Standard 
spricht. Microsoft-Standard heiSt aber auch: Lauffahigkeit von BASIC- 
Programmen anderer Rechner auf dem Colour-Genie und umgekehrt. 

Ein individuelles Merkmal des Colour-Genie ist sein Speicheraufbau. 
Hierin unterscheidet er sich erheblich von ansonsten ahnlich aufgebauten 
Rechnern. Neben dem Speicher, der den Interpreter beinhaltet, und dem 
Arbeitsspeicher, in dem BASIC-Programme abgelegt und ausgefiihrt 
werden, stehen zwei separate Bildwiederholspeicher zur Verfugung: In 
dem einen werden vom Rechner alle Zeichen abgelegt, die sich gegenwar- 
tig auf dem Bildschirm befinden. Der andere kann, vollkommen getrennt 
vom ersten, Zeichnungen aus bunten Linien und Kurven erfassen. Zwi- 
schen beiden Bildschirmebenen kann hin- und hergeschaltet werden, 

Ein weiterer Speicher steht fiir die Erstellung und den Abruf eigener 
Buchstaben und Symbole zur Verfugung. 

Auf all diese Eigenschaften wird in den Folgekapiteln eingegangen. 
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Grafik 
auf dem Colour-Genie 



2.1. DIE BEIDEN BILDSCHIRMDARSTELLUNGEN 

Kapitel 1 konnten Sie entnehmen, daB der in Ihrem Colour-Genie zur 
Verfugung stehende Speicher auf verschiedene Arten genutzt wird. 

Neben dem Programmspeicher gibt es einen Speicherbereich fur die Bild- 
wiedergabe von Texten und einen fur hochauflosende Grafik. Diese Spei- 
cherbereiche sind im Rechner sorgfaltig vom iibrigen Teil getrennt, ihre 
Inhalte kollidieren nicht miteinander. Man nennt sie Bildwiederholspei- 
cher. Die einzige Aufgabe solcher Bildwiederholspeicher ist es, alle Zei- 
chen, die auf dem Bildschirm ausgegeben werden sollen, zu erfassen. 

Zwischen den beiden Bildwiederholspeichern des Colour-Genies konnen 
Sie hin- und herschalten: 




Abb. 2.1: Bildschirmumschaltung 
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Wenn Sie dieses Programm starten, wird die Bildschirmseite, auf der sich 
der Text befindet, einfach abgeschaltet. Die Umschaltung ubernimmt 
hier die Anweisung FGR in Programmzeile 40. Aus diesem Grund nennt 
man die Grafikseite auch FGR-Bildschirmseite. FGR steht hier als 
Abkiirzung fur „full graphics", d. h. „Vollgrafik". 

Der FGR-Bildschirm bleibt so lange eingeschaltet, bis der Rechner eine 
Anweisung zum Umschalten auf die Textseite vorfindet. Die Anweisung 
zum Umschalten auf den Textbildschirm steht in Programmzeile 60 und 
lautet LGR. Aus diesem Grunde nennt man die Textbildschirmseite auch 
LGR-Bildschirmseite. I 

Neben diesen beiden Anweisungen wurde eine weitere Moglichkeit 
geschaffen, direkt von der Tastatur aus diese Umschaltung vorzunehmen. 
Um die Grafikseite einzuschalten, werden die Tasten <CTRL> und 
<MOD SEL> gleichzeitig betatigt. Das Zuriickschalten erfolgt iiber die 
Taste <BREAK>. 

Jeder Bildwiederholspeicher ist fur ganz bestimmte Anwendungen vorge- 
sehen: 

Der LGR-Bildschirm zeigt Zahlen, Buchstaben, frei definierte Zeichen 
und die Blockgrafikzeichen, die auf der Tastatur zu sehen sind. Auf dem 
FGR-Bildschirm steht Ihnen ein Punkteraster zur Verfiigung, mit dem 
Sie pro Zeile 160 und pro Spalte 102 Bildpunkte darstellen konnen. Jeden 
dieser Bildpunkte konnen Sie iiber entsprechende Anweisungen einzeln 
ansprechen. 

Leider laBt sich der Inhalt von beiden Bildwiederholspeichern nicht 
mischen. Auf dem Grafikbildschirm konnen keine Buchstaben, Ziffern, 
Grafik- und Sonderzeichen dargestellt werden. Hierfiir benotigen Sie den 
LGR-Bildschirm. 

Dies ist fiir Einsteiger haufig ein wenig verwirrend. Daher sind die einzel- 
nen Unterschiede im folgenden noch einmal tabellarisch zusammenge- 
faBt: I 





LGR- 


FGR- 




Bildschirm Bildschirm 


Anzahl der moglichen Farben 


16 


4 


Anzahl der frei definierbaren Zeichen 


128 


keine 


Sind Bildpunkte einzeln ansteuerbar? 


nein 


ja 


Kann man Linien und Kreise zeichnen? 


nein 


ja 


Konnen Flachen farbig ausgemalt werden? 


nein 


ja 


Kann Text dargestellt werden? 


ja 


nein 


Konnen Grafikzeichen dargestellt werden? 


ja 


nein 
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2.2. FARBIGE DARSTELLUNG IM TEXTBILDSCHIRM 

Wie Sie der vorigen Tabelle entnehmen kdnnen, verfugt das Colour- 
Genie uber 16 mogliche Farben auf dem LGR-Bildschirm. Zum Anwah- 
len einer bestimmten Farbe dient die COLOUR- Anweisung. Alle Zei- 
chen, die nach einer COLOUR- Anweisung auf dem Bildschirm ausgege- 
ben werden, erscheinen in der gewahlten Farbe: 











W 28 FOR X = 1 TO 16 




■ 38 COLOUR X 




H f@ PRIHT-OIES 1ST DIE FARBE ";X 




■ 50 HEXT X 






READY 






>RUH 








DIES 1ST DIE FARBE 1 








DIES 1ST DIE FARBE 2 








OiES 1ST DEE FARBE 3 








DIES 1ST DIE FARBE f 








DIES 1ST DIE FARBE 5 








QIES 1ST DIE FARBE 6 








DIES 1ST DIE FARBE 7 








DIES 1ST DIE FARBE 8 








DIES 1ST DIE FARBE 9 








C:-: : t ;"t DIh FrtPB* t^r 








OIES 1ST DIE FARBE 11 






H DIES 1ST DIE FARBE 12 






■ DIES 1ST DIE FARBE 13 






H DIES 1ST DIE FARBE M 




■ OSES EST DIE FARBE 15 




■ DIES 1ST DIE FARBE 16 




■ READY 




ft 





Abb. 2,2: Farbauswahl 



Wenn Sie mit Programmen arbeiten, bei denen die Farbe auf dem Bild- 
schirm von Bedeutung ist, sollten Sie zuvor kurz dieses Programm einge- 
ben, um Ihren Farbfernseher so einzustellen, daB sich ein sauberes Farb- 
und Buchstabenmuster auf dem Bildschirm ergibt. Dies ist ziemlich muh- 
sam, da die Bandbreite des Modulators, der sich in Ihrem Colour-Genie 
befindet und der das Fernsehbild erzeugt, sehr klein ist, und somit die 
Einstellung ein wenig Fingerspitzengefiihl erfordert. 



Haben Sie den LGR-Bildschirm justiert, konnen Sie sich gleich einmal 
alle Zeichen darauf ausgeben lassen, die das Colour-Genie kennt: 
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^m 20 FOR X=33 TO 255 




■ 30 PRIHT-ZEICHEH HR. = a ;X,CHRS(X ) 




■ 40 NEXT 




■ READY 






>RUH 






ZEICHEH HR. 33 < 






ZEICHEH HR. = 34 " 








ZEICHEH HR.= 35 t 








ZEICHEH HR. = 36 * 








ZEICHEH HR. = 37 X 








ZEICHEH HR. 38 t 








ZEICHEH HR. = 39 








ZEICHEH HR. = 48 ( 








ZEICHEH HR. 41 ) 








ZEICHEH HR. = 42 t 








ZEICHEH HR. = 43 * 








ZEICHEH HR. = 44 






H ZEICHEH R. • 45 






■ ZEICHEH HR. = 46 




H ZEICHEH HR. = 47 / 




■ ZEICHEH HR. = 40 




■ ZEICHEH HR. = 49 1 





Abb. 2.3: Der Standardzeichensatz des Colour-Genies 




Abb. 2.4: Zufallsfarben 
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S§ 





f 8 CHAR 2 

I 28 T=8 PRIHT8^8B. . 

F 38 X=X+t 

*§ IF X=t7 THEH X=! 
1 58 COLOUR X 

68 PRIHTCHR*<238 >, " E . 

78 T=T+1 

38 IF T=28 THEH 28 

98 GOTO 58 

READY 

V RUH 









Abb. 2.5: Lauflicht 

I 
Diese Zeichen sind audi in Ihrem B ASIC-Handbuch auf den Seiten 123 
und 147 zu finden. 

Einen interessanten optischen Effekt erzielen Sie, indem Sie einen 
bestimmten Text immer an der gleichen Bildschirmstelle in standig wech- 

selnden Farben ausgeben lassen: . 

i ^ 

Auch der „Lauflichteffekt", wie man ihn aus Diskotheken kennt, laBt sich 
auf dem Bildschirm nachvollziehen: 

Neben der Moglichkeit, Farben iiber die COLOUR- Anweisung anzu- 
wahlen, kann dies auch direkt iiber die Tastatur geschehen. Dazu betati- 
gen Sie die <CTRL>-Taste zusammen mit einer der Tasten <1> bis 
<8>. Die Farbe, die der betatigten Taste entspricht, ist auf der Tastatur 
vermerkt. Alle Folgezeichen werden vom Rechner in der gewahlten 
Farbe ausgegeben. j 



2.2.1 Die Blockgrafikzeichen auf der Tastatur 

Neben den „normalen" Zeichen einer Schreibmaschinentastatur verfugt 
das Colour-Genie iiber Blockgrafikzeichen, die durch Betatigung der 
<MOD SEL>-Taste angesprochen werden konnen. Die <MOD SEL>- 
Taste dient hierbei als Schalter zwischen den „normalen" und den Grafik- 
zeichen: 
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PRINT "a b (tippen Sie hier <MOD SEL>) a b (tippen Sie hier <MOD 
SEL>) a b" | 

Durch die eingebauten Grafikzeichen wird es moglich, im LGR-Bild- 
schirm Grafik und Text miteinander zu mischen. Sie konnen z. B. den 
gesamten Bildschirm umrahmen: 



10 


CLS 


20 


F*»CHR*<230> 


30 


FOR X-39 TO 940 STEP 40 


40 


PRINT«X,F*; :PRINTF*j 


50 


NEXT X 


60 


FOR X-0 TO 39 


70 


PRINT9X,F*j 


B0 


PRINT«920+X,F*; 


90 


NEXT X 


100 


PR I NT04 1 , " DER R AHflEN " ; 


U0 


GOTO 110 

i 



Abb. 2.6: Beispielprogramm fiir Blockgrafik 




Abb. 2. 7: Bildschirmausgabe — ein Rahmen in Blockgrafik 
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Jedes Blockgrafikzeichen besitzt iibrigens einen ganz individuellen sog. 
ASCII-Code, den Sie auf Seite 147 Ihres Handbuches nachlesen kdnnen. 
Statt der Tastenkombination <MOD SEL> <a>, die das Grafikzeichen 
• auf dem Bildschirm darstellt, kann auch der entsprechende ASCII- 
Code des gewunschten Grafikzeichens eingegeben werden. Dies 
geschieht in Programmzeile 20 durch die Zuweisung F$ = CHR$ (230). 

In den Blockgrafikzeichen unterscheidet sich das Colour-Genie erheblich 
von ansonsten ahnlich aufgebauten Rechnern wie dem Video Genie und 

dem TRS 80. 

i 

Blockgrafikzeichen konnen Sie auf zwei Arten ansprechen: 

1. Uber die Tastatur in Verbindung mit der <MOD SEL>-Taste 

2. Mit Hilfe der CHR$-Funktion, indem Sie aus der ASCII-Codetabelle 
die Nummer des gewunschten Zeichens angeben. 

Beide Varianten haben ihre Vor- und Nachteile. Mit der ersten Variante 
sollten Sie dann arbeiten, wenn Sie mit vielen Blockgrafikzeichen auf ein- 
mal arbeiten und diese schon beim Auflisten des Programms einen Ein- 

druck daruber vermitteln sollen, wie die spatere Grafik aussieht. 

i 

Die zweite Variante ist dann empfehlenswert, wenn Programmlistings auf 
dem Drucker erstellt werden sollen. Matrixdrucker verfiigen in der Regel 
uber einen anderen Zeichensatz als das Colour-Genie, so daB auf dem 
Drucker ausgegebene Blockgrafikzeichen anders aussehen als die auf 
dem Bildschirm. Fazit: 



Es hat vom Programmablauf her dieselbe Wirkung, ob Sie 

PRINT"*" 

oder 

PRINT CHR$(230) 

eingeben. Soil das Programm jedoch auf einem Drucker gelistet werden, 
ist die letzte Variante zu empfehlen. 

Wenn Sie die Blockgrafikzeichen direkt iiber die Tastatur eingeben, wer- 
den Sie feststellen, daB diese auf der Tastatur oft ganz anders wirken als 
auf dem Bildschirm. 

Einzelne Grafiksymbole scheinen sich kaum voneinander zu unterschei- 
den und passen auch irgendwie nicht zusammen. Sie sollten daher Grafik- 
zeichen in Typengruppen einteilen. Am einfachsten erstellen Sie sich eine 
Tabelle, in der Sie alle Grafikzeichen in Gruppen klassifizieren: 
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1. Symbole (Wiirfel, Herz, Pik, Kreuz, Karo) 

2. Linienmuster (dick, diinn, einfach, zweifach, waagerecht, senkrecht, 
schrag) 

3. Bldcke (gestrichelt, gepunktet, etc.) 

4. Kreise 

5. Sonstige 

Wenn Sie sich eine solche Liste anfertigen, konnen Sie genau sehen, wel- 
che Grafikzeichen zueinander passen und welche nicht. Dies erleichtert 
Ihnen erheblich die Arbeit, wenn es wie im nachsten Kapitel darum geht, 
groBere Figuren, Zeichnungen oder Skizzen zu erstellen. Das Ganze kon- 
nen Sie experimentell auf dem Bildschirm nachvollziehen, indem Sie 
bestimmte Symbole hinter- und untereinander setzen. 

Blockgrafikzeichen konnen nicht nur nebeneinander, sondern auch 
untereinander gesetzt werden. Urn mehrere Blockgrafikzeichen unter- 
einander zu setzen, d. h. um das folgende Zeichen eine Zeile tiefer zu set- 
zen, diirfen Sie nicht die <RETURN> -Taste betatigen, denn das wird 
vom Rechner als Aufforderung aufgefaBt, einen (wie der Rechner glaubt) 
Befehl auszufuhren. Das Ergebnis ware ein „Syntax Errr". 

Um dies zu vermeiden, sollten Sie jedesmal, wenn Sie in eine neue Zeile 
gehen wollen, den <Pfeil nach unten> verwenden. , 

Der Aufwand fur eine derartige Tabelle ist recht rmihsam. Er ermoglicht 
es jedoch, sich ein Bild dariiber zu machen, was auf dem LGR-Bildschirm 
grafisch darstellbar ist und was nicht. Sie konnen dann spater mit erheb- 
lich weniger Zeitaufwand Figuren und grafische Skizzen erstellen. Im fol- 
genden Abschnitt werden wir einige Beispiele hierfur sehen. 



2.2.2 Zeichnungen aus Blockgrafikzeichen 

Schon im vorigen Abschnitt ist Ihnen sicherlich bei dem Versuch, Figuren 
oder einfach eine groBere Anordnung von grafischen Symbolen auf dem 
Bildschirm darzustellen, auf gef alien, daB das Erstellen von Zeichnungen 
mit Schwierigkeiten verbunden und bestimmten Beschrankungen unter- 
worfen ist. Grund fur diese Beschrankungen ist in erster Linie das Arger- 
nis, daB Sie nicht uber die Pfeiltasten den Cursor an jede beliebige Bild- 
schirmstelle positionieren konnen. So ist es weder mit der Cursor-Taste 
<Pfeil hoch> noch mit einer <Shift>-Kombination moglich, von einer 
bestimmten Bildschirmzeile in die nachsthohere zu gelangen. Das hat zur 
Folge, daB z. B. Korrekturen am bereits bestehenden Teil einer Zeich- 
nung nicht durchgefuhrt werden konnen. Es gibt keine Taste auf der 
Tastatur, die das Steuerzeichen mit dem ASCII-Code 27 liefert, das den 
Cursor eine Zeile hoher positioniert. Dazu muB ein Programm geschrie- 
ben werden, das den Pfeiltasten neue Bedeutungen zuweist: 
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10 CLS 

20 COLOUR l 

30 PRINT CHR*U4) J 

40 Y*= I NKE V* : I F Y*» " " THEN40 

50 IFY#«CHR* (13) THENY*«CHR* (29) +CHR* (26) 

60 IFY*-CHR*(91)THENY*-CHR*<27) 

70 IFY*=CHR*a0>THENY#«CHR*(26> 

80 IFY*-CHR*(9)THENY*«CHR*C25) 

90 IFY*-CHR*<8)THENY*-CHR*(24> 

100 PR I NT Y* : s 6OTQ40 



Abb. 2.8: Cursorsteuerung per Programm 



Dieses Programm loscht zuerst den Bildschirm. Dann erscheint in der lin- 
ken oberen Bildschirmecke ein blinkender Cursor. Sie konnen nun tiber 
die Pfeiltasten auf der Tastatur den Cursor an eine von Ihnen gewahlte 
Bildschirmposition bringen und so den Bildschirm beliebig mit Zeichen 
fullen. Wenn Sie z. B. den Linkspfeil betatigen, wird nicht mehr wie bis- 
her das zuletzt eingegebene Zeichen geloscht, sondern nur der Cursor 
eine Position nach links gesetzt. 

Man nennt solche ASCII-Zeichen, durch die kein Zeichen auf dem Bild- 
schirm ausgegeben, sondern nur die Position des Cursors geandert oder 
Teile des Bildschirms geloscht werden, Bildschirmsteuerzeichen. Eine 
Liste dieser Bildschirmsteuerzeichen und ihrer Bedeutungen finden Sie 
auf Seite 145 Ihres BASIC-Handbuchs. Welche zusatzlichen Anwen- 
dungsmoglichkeiten Bildschirmsteuerzeichen bieten, wird spater im 
Kapitel 2.4 eingehend erlautert. 

Durch diese Cursor-Steuerungsroutine sind Sie also in der Lage, einen 
kompletten Bildschirm in beliebiger Reihenfolge mit Zeichen zu fullen. 
Wenn die <MOD SEL>-Taste betatigt wird, konnen dies naturlich auch 
Blockgrafikzeichen sein. Die hier aufgefuhrte Routine ist ein haufiger 
Bestandteil von Textverarbeitungsprogrammen. 

Sie konnen nun Skizzen, Grafiken oder andere Zeichnungen erstellen. 
Ein Beispiel finden Sie am Ende dieses Abschnitts. 

In der Regel wollen Sie sicherlich eine einmal erstellte Skizze oder Zeich- 
nung weiterverarbeiten konnen. Dazu muB die Moglichkeit geschaffen 
werden, alles, was sich auf dem Bildschirm befindet, irgendwie abzuspei- 
chern. Um dies zu bewerkstelligen, machen wir uns spezielle Anweisun- 
gen des Microsoft-B ASICs zunutze: 
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Im BASIC des Colour-Genie gibt es eine Funktion VARPTR. Diese 
Funktion liefert uns zu jeder gewiinschten Variablen eines sich im Spei- 
cher befindenden Programms einen Hinweis, wo sich die zu dieser Varia- 
blen gehorenden Daten befinden. 

Habenwirz. B. gesagt: 

A$="HASE" 

so erhielt der Rechner die Anweisung, der Variablen A$ einen Wert 
zuzuweisen, namlich die Zeichenfolge „HASE". Diese Zeichenfolge 
wurde vom Rechner an einer bestimmten Stelle im Speicher abgelegt. Die 
Ablageadresse und weitere Hinweise, die die Variable A$ betreffen, 
„merkt" sich der Rechner. 

Durch Eingabe von 

C=VARPTR(A$) 

kann man sich diese Informationen ausgeben lassen. So liefert diese 
Anweisung zunachst einmal einen Hinweis, daB in Speicherstelle C die 
Lange von A$ steht (in diesem Falle eine 4). 

In den Speichersteellen C+l und C+2 steht dann ein Hinweis, wo wir die 
Zeichenkette A$ im Speicher finden konnen. Wir nutzen die Informatio- 
nen, die wir durch VARPTR erhalten. Wir konnen dann spater jeden 
beliebigen Bildschirminhalt als Zeichenkette an irgendwelche Pro- 
grammvariablen iibergeben. Zunachst ein Beispiel, wie VARPTR 
genutzt werden kann: 



10 A*-" " 

20 AD=VARPTR(A#) 

30 AB«PEEK ( AD+ 1 > +256*PEEK < AD+2 ) 

40 IF AB>32767 THEN AB=AB-65536 

50 POKE AB,ASC("B"> 



Abb. 2.9: Die Verwendung von VARPTR 

Wenn Sie dieses Programm starten und anschlieBend 

LIST 

eingeben, werden Sie feststellen, daft sich Programmzeile 10 verandert 
hat, da die Variable A$ nun den Wert "B" besitzt. 

Mit Hilfe der VARPTR-Funktion wurde in Zeile 30 die Speicheradresse 
ermittelt, wo der Rechner A$=" " im Speicher abgelegt hatte. Diese 
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Wertzuweisung wurde verandert, indem direkt in die ermittelte Speicher- 
adresse durch die Anweisung in Zeile 50 ein anderer Wert, namlich "B" 
eingetragen wurde. 

2.2.3 Ein Grafikeditor 

Urn einen ganzen Bildschirminhalt in Variablen zu erfassen, sind 
1000 Bytes notwendig, da der LGR-Bildschirm eine Auflosung von 
25 Zeilen mit je 40 Zeichen besitzt. Diese 1000 Bytes konnen bequem in 
5 Zeichenkettenvariablen a 200 Bytes erfaBt werden. 

Fur alle 1000 Zeichen, die aus dem Bildschirm ausgelesen werden sollen, 
mu6 von vornherein im Programm Platz geschaffen werden. Dies 
geschieht derart, daB den 5 Zeichenkettenvariablen jeweils 200 Zeichen 
zugewiesen werden, z. B. durch die Zuweisung: 

Ob Sie diese Zeichenketten nun mit Leerzeichen oder mit anderen 
ASCII-Zeichen fullen, ist irrelevant. Nach dem Auslesevorgang sind die 
alten Werte auf jeden Fall mit neuen uberschrieben. 

Die Vorteile, die Ihnen ein solcher Grafikeditor bietet, liegen klar auf der 
Hand: Nach dem Auslesevorgang verfugen Sie uber funf Variablen, die 
eine komplette LGR-Bildschirmseite beinhalten, und dies gleich als Pro- 
grammzeilen. Wenn Sie alle Programmzeilen auBer 7, 9,11,13 und 15 16- 
schen, konnen Sie diesen Bildschirm separat weiterverarbeiten. 

Zur Ausgabe eines Bildschirms werden dann nur zwei weitere Programm- 
zeilen benotigt: 

17Z$(5) = LEFT$(Z$(5),199):FORX=1 T0 5:PRINTZ$(X);:NEXTX 
18 GOTO 18 

Es folgt nun ein Programm, mit dem Sie auf dem Bildschirm beliebige gra- 
fische Entwiirfe machen konnen. Ubernehmen Sie bitte zunachst dieses 
Programm in Ihren Rechner. 



1 CLEAR 1500 

2 CLS: PR I NT "PROGRAMM ZUM ERSTELLEN EINER 
GRAFIKSEITE AUF DEM BILDSCHIRM. DIESE WIRD D 
URCH BETAETIGUNG VON 

<F1> DIREKT IN DEN VARIABLEN Z#(l) ... Z*<5> 
GESPEICHERT. 



Abb. 2,10: Grafikeditor 
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<F2> BEENDET DEN PROGRAMMLAUF . 

3 INPUT"BITTE < RETURN >*'jAA* 

4 DIM 2*(5) 

5 FL=0 

6 REM JEDES Z*(X) MUSS GENAU 200 ZEICHEN LANG 
SEIN. UEBERPRUEFUNG JEWEILS IN DER FOLGEZEIL 
E. IN DEN EINZELNEN Z*(X) STEHT NACH BETAETI 
GUNG DER <F1>-TASTE DER KOMPLETTE 8ILDSCHIR 
MINHALT. 

7 Z* ( 1 ) ■ " »***#***#*»*»*****♦#»*♦*###*#######** 
###*##■**#»*###****«**»#*#**#*♦*##**##*##**»# 

8 P«LEN<Z*U))sIF PO200 THENPRINT"Z* ( 1 ) 1ST U 
NZULAESSIG LANGi "»P; "ZEICHEN" iFL-1 

9 Z*<2) ■"#**»**#♦##»»**»*#♦»♦»**#»»***»**#»»*# 

10 P=LEN<Z*(2)):IFP<>200 THENPRINT"Z*<2> 1ST UN 
ZULAESSIG LANG I "|P} "ZEICHEN" iFL=l 

11 Z* (3) »" *##•»#»#*♦##»###*#»*»»**♦###♦#**#*»»# 
#*#»**»*###*««»****•**•**#»«»**#*«•»«»***§** 
###«»###*####*♦»*##»**»**##♦#####*#♦#*##♦*## 

ft***************************************-**** 

12 P=LEN<Z*<3))tIF PO200THENPRINT"Z*<3> 1ST UN 
ZULAESSIG LANG t "}Pj "ZEICHEN LANG":FL-1 

13 Z* < 4 ) « " ##**#*»#*##»*###*»**#*♦»*##♦########* 
ft******************************************* 

»»»##»#*##***#######*»#*»#»*####♦»#*###»##♦* 

####*#####»***####»#######*»*#♦" 

14 P=LEN<Z*(4))iIFPO200THENPRINT"Z*<4> 1ST UNZ 
ULAESSIG LANG : ";P( "ZEICHEN" sFL-1 

15 Z*<5) ="****#*»*******»***»*##**#*#*♦**#*#*** 

**####»#*♦»##*»######*#####*#»#*»#»#*##*##*# 

##*###**###**#*#»##»*#»«*###*###»*#♦#*♦»##•■# 
####»##♦»*##*»»**###*#*####*#•*♦ ■■ 

16 P=LEN(Z*<5>>sIFPO200THENPRINT"Z*C5> 1ST UNZ 
ULAESS I G LANG t - J P ; " ZE I CHEN " s FL» 1 

17 IF FL=1 THENPRINT"KORREKTUR NQTWENDIG"iSTOP 

18 REM HIER BEGINNT DIE TASTATURABFRAGERDUTINE 

19 CLSjPRINTCHR*U4); 

20 Y*=INKEY*t IFY*=" "THEN20ELSEA«ASC < Y*> 

21 IF PEEK < -2040 >=16THEN30: <F1> ?? 

22 IF PEEK ( -2040 )«32 THEN 41: '<F2>?? 

23 IF<A=13)PRINTCHR*<29);CHR*(2£>;:GOTO20: DIE 
<RETURN>-TASTE WIRD UMDEFINIERT 

24 IF<A=91)LETA=27: *PFEIL HOCH WIRD UMDEFINIERT 

25 IF<A>=32)PRINTCHR*<A);:GOTO20 

26 IF A>=24 THEN 28 



Abb. 2.10: Grafikeditor (Fortsetzung) 
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27 A=«A+16j ALLE TASTEN, DEREN ASCI I -WERT <24 IS 
T, WERDEN UHDEFINIERT 

28 PR I NTCHR* ( A > ; i GOTO20 

29 REM HIER BE6INNT DIE BILDSCHIRMAUSLESEROUTIN 
E 

30 FOR X=0 TO 4 

31 G=VARPTR(Z*<X+1> > 

32 IF X=0THEN G-G+7 

33 Al=PEEK<G+l>+256#PEEK<G+2>: AB ADRESSE Al LI 
EST DER TEXTSPEICHER FUER DIE VARIABLE Z*(X+ 
1) 

34 BS=1740S+X*200 

35 FOR T=0 TO 199 

36 POKE A1+T,PEEK(BS+T) 

37 Tl«PEEK<BS+T>!pOKEBS+T,246iPQKEBS+T,Tlt BLIN 
KENDER PUNKT AUF DEM BILDSCHIRM 

38 NEXT T 

39 NEXT X 

40 GOTO 19 

41 Z*(5>«LEFT*<Z*<5> ,199>s WENN NIGHT DAS LETZT 
E ZEICHEN DES LETZTEN STRINGS UM 1 GEKUERZT 
WIRD, SCROLLT DER BILDSCHIRM 

42 CLS SPRINT: PR I NT "BILDSCHIRM ABGESPEICHERT. 
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JEWEILS 5 BILDSCHIRMZEILEN 


MIT JE 


40 


ZEICHEN SIND UEBER DIE VARIABLEN 




PRINT" 












Z*(l) => 


ZEILE 


1 BIS 5 






Z*(2) *> 


ZEILE 


6 BIS 10 






Z*<3) => 


ZEILE 


11 


BIS IS 






Z*<4) => 


ZEILE 


16 


BIS 20 






Z*(5) => 


ZEILE 


21 


BIS 25 






PRINT" 












ABGESPEICHERT UND 


KOENNEN 


DURCH EINBABE 


VON 
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FQRX=lT05sPRINTZ*(X);sNEXTX 

JEDERZE1T AUFSERUFEN WERDEN. 

45 PR I NT "< RETURN > ZUM ANZEIGEN DES ABGESPEICHER 
TEN BILDES" 

46 INPUTAA* 

47 CLSs FDR X=l TD 5 

48 PRINTZ*(X>s 

49 NEXT X 

50 GOTO50 



Abb. 2.10: Grafikeditor (Fortsetzung) 



Anmerkungen zum Programm: 



Eine komplette Bildschirmseite steht Ihnen wie ein Zeichenbrett zur 
Erstellung eines Bildes zur Verfugung. 

Wenn die Zeichnung erstellt ist und die Funktionstaste <F1> betatigt 
wurde, wird iiber eine spezielle Routine des Programms jedes einzelne 
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Zeichen auf dem Bildschirm ausgelesen und in einer der zur Verfu- 
gung stehenden Zeichenkettenvariablen gespeichert. Dieser Vorgang 
nimmt etwas Zeit in Anspruch. Ein kleiner blinkender Fleck zeigt 
Ihnen jedoch immer das zuletzt ausgelesene Zeichen auf dem Bild- 
schirm an. 

3. Nach einmaligem Auslesen kann an der Zeichnung weitergearbeitet 
werden. Zu diesem Zeitpunkt haben jedoch die Variablen Z$(l) bis 
Z$(5) bereits den ganzen Bildschirminhalt gespeichert, der sich zum 
Zeitpunkt des letzten Auslesens auf dem LGR-Schirm befand. 

4. 1st die Zeichnung fertig, konnen Sie durch Betatigung der Taste <F2> 
weitere Hinweise abrufen. Der Inhalt der Variablen Z$(l) bis Z$(5) 
wird anschlieSend auf dem Bildschirm dargestellt. 

Alle Zeichen, die sich zum Zeitpunkt der Betatigung der Funktionstaste 
<F1> auf dem Bildschirm befanden, sind nun in der Zeichenkettenvaria- 
blen Z$(l) bis Z$(5) von Programmzeile 7 bis Programmzeile 15 unter- 
gebracht. Sie konnen sich durch Eingabe von 

LIST 

anschauen, ob das Programm ordnungsgemaS ablief: 




Abb. 2.11: Teil der Programmliste nach Programmende 
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Abb. 2.12: Einleitungstext zum Grafikeditor 




Abb. 2.13: Eine mit dem Grafikeditor erstellte Skizze 
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Nachdem Sie das Programm eingetippt und mit RUN gestartet haben, 
erscheint auf dem Bildschirm der in Abb. 2.12 dargestellte Text. 

Wenn Sie nun die <RETURN>-Taste betatigen, wird der Bildschirm 
geloscht. Links oben erscheint ein blinkender Cursor und zeigt die 
momentane Eingabeposition. Sobald Sie Ihr Bild erstellt haben, betati- 
gen Sie die Funktionstaste <F1> zum Abschlufl. In Abb. 2.13 finden Sie 
das Beispiel einer mit dem Grafikeditor erstellten Skizze. 

Nun konnen Sie, wenn Sie wollen, den Grafikeditor loschen, indent Sie 
nur die Zeilen stehenlassen, in denen sich die Variablen Z$(l) bis Z$(5) 
befinden: 

DELETE 16-50: DELETE 1-6: DELETE 8: DELETE 10: DELETE 12: 
DELETE 14 

Wenn Sie wollen, konnen Sie nun das Bild, das sich in den Programmzei- 
len 7 bis 15 befindet, mit dem Befehl 

SAVE"(Bildname)" 
auf Diskette oder mit 

CSAVE"(Bildname)" 
auf Kassette speichern. 



2.2.4 Das Arbeiten mit frei definierbaren Zeichen 

Eine weitere Form der Darstellung von Zeichen auf dem LGR-Bild- 
schirm sind die frei programmierbaren Zeichen. Im Rechnerspeicher 
Ihres Colour-Genie wurde eigens ein Speicherbereich fur die Erfassung 
dieser Zeichen reserviert. Hier konnen bis zu 128 solcher Zeichen abge- 
legtwerden. 

Da nach dem Einschalten des Computers noch keine Zeichen program- 
miert sind, gibt der Rechner beim Abruf eines solchen Zeichens ein Leer- 
zeichen aus. Lassen Sie uns versuchen, das erste der frei programmierba- 
ren Zeichen abzurufen: 

CHAR 1 PRINT CHR$(1 28) 

Mit der CHAR-Anweisung schaltet der Rechner auf einen anderen Zei- 
chensatz um, den Zeichensatz 1. Durch diese Umschaltung werden die 
frei programmierbaren Zeichen zur Ausgabe auf den Bildschirm freigege- 
ben. 

Das erste Zeichen der ersten Gruppe frei programmierbarer Zeichen 
tragt die ASCII-Codenummer 128. Falls Ihnen der CHAR-Befehl nicht 
vertraut sein sollte, lesen Sie bitte unter Kap. 3.3 im BASIC-Handbuch 
Einzelheiten dariiber nach. 
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Da wir zu diesem Zeitpunkt noch kein frei programmierbares Zeichen 
definiert haben, wird statt dessen ein Leerzeichen ausgegeben. Das erste 
der frei programmierbaren Zeichen belegt also in der ASCII-Tabelle die 
Codenummer 128. 

Wir wollen nun den Buchstaben X neu entwerfen und als Zeichen mit der 
Nummer 128 ablegen. Schon oben wurde erwahnt, daB es sich bei dem 
Zeichen mit dieser Codenummer um das erste der frei programmierbaren 
Zeichen handelt. Aus diesem Grunde liegen die Speicheradressen, die fur 
dieses Zeichen zustandig sind, ganz am Anfang des Speicherbereichs, der 
im Rechnerspeicher fur die frei programmierbaren Zeichen reserviert 
wurde. Im Speicherbelegungsplan auf Seite 124 Ihres Handbuchs steht 
genau, welche Adresse dieser Speicher belegt: 

F400 bis F7FF 

Das entspricht dezimal den Adressen —3072 bis —2049. Und so sieht der 
Speicher fur das erste Zeichen anfangs aus: 



Adresse Adresse 



hex 
F400 
F401 
F402 
F403 
F404 
F405 
F406 
F407 



dez 
-3072 
-3071 
-3070 
-3069 
-3068 
-3067 
-3066 
-3065 



xl28 x64 x32 x!6 x8 x4 x2 



xl Sum 












Rechts neben der Tabelle unter dem Eintrag „Sum" stehen die Speicher- 
inhalte (in diesem Fall Nullen). Mit 

PRINT PEEK(-3072) 

konnen wir dies leicht iiberpriifen. 

Nun beginnen wir, auf dem quadratischen Feld das Zeichen X einzutra- 
gen und jeweils die Zeilensumme rechts zu vermerken: 



Adresse Adresse 




















hex dez 


xl28 


x64 


x32 


xl6 


x8 


x4 


x2 


xl 


Sum 


F400 -3072 


O 


• 


• 


• 


• 


• 


• 


o 


129 


F401 -3071 




O 


• 


• 


• 


• 


O 




66 


F402 -3070 




• 


O 


• 


• 


O 


• 




36 


F403 -3069 




■ 


• 


O 


O 


• 


• 




24 


F404 -3068 




• 


• 


o 


o 


• 


• 




24 


F405 -3067 




• 


o 


• 


• 


o 


• 




36 


F406 -3066 




o 


• 


• 


• 


■ 


o 




66 


F407 -3065 


O 


• 


■ 


• 


• 


. 


. 


o 


129 
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Das Programmieren geschieht nun, indem die rechts ermittelten Sum- 
menwerte nacheinander in den Speicher fur die frei programmierbaren 
Zeichen eingetragen werden: 

POKE -3072,129 
POKE -3071 ,66 
POKE -3070,36 
POKE -3069,24 
POKE -3068,24 
POKE -3067,36 
POKE -3066,66 
POKE -3065,129 

Wenn Sie nun 

PRINT CHR$(1 28) 

aufrufen, erscheint ein frei definiertes X auf dem Bildschirm. 

Dieses Verfahren ist recht muhsam, da Sie, um alle 128 Zeichen zu defi- 
nieren, alle 1024 Adressen des frei programmierbaren Zeichenspeichers 
mit Werten versehen mussen. 

In Abb, 2. 17 finden Sie daher ein sogenanntes Hilfsprogramm, das Ihnen 
diese Arbeit erleichtert. Dieses Programm liest aus DATA-Zeilen, die 
vor dieses Hilfprogramm gesetzt werden und jeweils die Daten fur einen 
kompletten Zeichensatz enthalten, die Werte ein, die in den program- 
mierbaren Zeichenspeicher geladen werden sollen. Zusatzlich wird das 
programmierte Zeichen im GroBformat auf dem Bildschirm dargestellt. 
Wie so etwas im Ablauf aussieht, sehen Sie in den Abbildungen 2.14 und 
2.15. 

Wir haben fur dieses Programm mehrere komplette Zeichensatze zur 
Verfugung gestellt. Diese finden Sie in Form von DATA-Zeilen im 
Anhang C. Die Zeilennummer, die vor der DATA-Anweisung steht, 
entspricht dem ASCII-Code des jeweiligen Zeichens. Jeder Zeichensatz 
beginnt mit Programmzeile 33, wo ein neues ! definiert wird. 

Sobald alle Zeichendefiniert sind, konnen Sie sich die Zeichen wahlweise 
im neuen oder im Standard-Zeichensatz ausgeben lassen (siehe 
Abb. 2.16). 

Nun erfolgen Bildschirmausgaben im selbstdefinierten Zeichensatz. 
Wenn Sie dies nicht mehr wiinschen, entfernen Sie Programmzeile 50 
durch 

50 <RETURN> 

Alle Folgezeichen werden dann im Standardzeichensatz ausgegeben. 
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Abb. 2.14; Ein neues $-Zeichen wird definiert 



















1 BUCHSTftBE ■- 
■ ■ ASCI I -CODE 





> X 

-> 


37 


















s H 




• • 


• 


. _ 


» _ 


• - 


m 






• • 


• 


- - 


• 


. . 


116 ] 






• 


# 


# 






120 








• 


• 


• 


• 


30 






.. . . • 


- - 


• 


• 


• - 


*6 






• 


- . 


• 


• 


• 


78 






. . 


- . 


- - 


- - 


. . 


8 




B 8 m 116 


120 


38 


*6 


78 


■ 


H QftTEH IH SPEICHER. 

■ DIES 1ST DAS HEUE ZEICHEH - — 
Mm BITTE <RETURH> 


—>% m 



















Abb. 2.15: Ein neues Prozentzeichen wird definiert 
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Abb. 2.16: Wiedergabe eines beliebigen Zeichens 



59999 



60000 
60010 

60020 

60030 
60040 
60050 
60060 
60070 
60080 
60090 
60100 
60110 
60120 
60130 
60140 



'IN DIESEM PROGRAMM WERDEN 94 FREIDEFINIERBA 

RE ZEICHEN ALS BITMUSTER DEFINIERT UND IN DE 

N RECHNERSPEICHER GELADEN.FUER DIESEN TREIBE 

R STEHEN MEHRERE ZEICHENSAETZE ZUR VERFUEGUN 

G. 

CLEAR 5000: PLATZ SCHAFFEN 

DEFINT M,B: FUER BERECHNUNGEN ALS INTEGER NO 

TWENDIG 

DIM H(7,7): 'DIESES FELD NIMMT DIE PUNKTE EIN 

ES ZEICHENS AUF 

DIM HW<7) j 'WELCHE BITS GESETZT 

DIM MW(7)s 'DATA WERTE 

ST=*<HF400! ' ABLAGEADRESSE 

FOR AN«0 TO 93 

CLStPRINT-'BUCHSTABE i > "jCHR*<33+AN> 

PR I NT "ASCI I -CODE : > " J 33+ AN 

PRINT 

FOR MX=0 TO 7 J 'ALLE 8 BYTES 
READ ZX 
HW<MX)=ZX 

FOR MB-0 TO 7 i 'ALLE B BITS EINES BYTES 
MM-2CMBtMW(MB>=(ZX AND MM) s IF MW(MB)<>0 THEN 
MW(MB>»1 



Abb. 2.17: Mil diesem Hilfsprogramm (in Verbindungmit einem der verfiigbaren Zei- 
chensatze aus Anhang C) wird ein ganzer Satz freiprogrammierbarer Zei- 
chen in den Rechnerspeicher geladen 
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60150 


M<MX,7-MB)=MW(MB>s ' IM FELD EINTRASEN 


60160 


NEXT MB 


60170 


NEXT MX 


60180 


FOR Y-0 TO 7s 'DARSTELLEN 


60190 


FOR X=0 TO 7 


60200 


IF M<X t Y>-0 THEN PRINT".. "jELSEPRINT" 


60210 


5 

T%=2 C < 7- X ) : WW= W W+T%»M < X , Y > 


60220 


NEXT X 


60230 


PR I NTUS I NG "###"; WW 


60235 


PRINT 


60240 


POKE ST,WWi'IM SPEICHER FUER FREI DEFINIERBA 




RE ZEICHEN ABLEGEN 


60250 


ST=ST+1:WW=0 


60260 


NEXTY 


60270 


FORX-0TO7 


602B0 


PRINTUSING*'### ";HW(X>; 


60290 


NEXTX 


60300 


PRINT: PRINT! PRINT"DATEN IM SPEICHER. 




DIES 1ST DAS NEUE ZEICHEN : >"; CHR* ( 128+A 




N> 


60310 


PRINT"BITTE <RETURN>" 


60320 


INPUT"" ;A# 


60330 


NEXT AN 



Abb. 2.17: Mit diesem Hilfsprogramm (in Verbindung mit einem der verfugbaren Zei- 
chensatze aus Anhang C) wird ein ganzer Satz freiprogrammierbarer Zei- 
chen in den Rechnerspeicher geladen (Fortsetzung) 

Diesem Listing imissen Sie einen der in Anhang C aufgefiihrten Zeichen- 
satze vorausstellen. 



2.3 FARBIGE D ARSTELLUNG AUF DEM GRAFIKBILDSCHIRM 

Schon auf den vorangegangenen Seiten wurde als wesentlicher Unter- 
schied zwischen Textbildschirm und Grafikbildschirm herausgestellt, da6 
in der FGR-Bildschirmebene jeder Bildpunkt einzeln angesprochen wer- 
den kann. Hierbei stehen Ihnen 160 Bildpunkte pro Zeile und 102 pro 
Spalte zur Verfugung. Bevor Sie nun Bildpunkte darstellen konnen, mus- 
sen Sie sich 2 Farben wahlen: 

1. die Hintergrundfarbe; 

2. die Farbe, in der Sie zeichnen wollen. 

Die vier Ihnen insgesamt zur Verfugung stehenden Farben sind: 

Farbnummer 1: schwarz 
Farbnummer 2: blau 
Farbnummer 3: orange 
Farbnummer 4: grim 
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Wir wollen nun einen blauen Hintergrund definieren, auf dem wir einen 
Punkt in Orange zeichnen: 




Abb. 2.18: Definition von Vorder- und Hintergrundfarbe 



Es kann nun durchaus mdglich sein, daB dieser Punkt auf Ihrem Farbfern- 
seher in einer anderen Farbe oder etwas verschwommen erscheint. Sie 
sollten dann das folgende Programm eingeben. Es erzeugt ein 4-farbiges 
Testbild auf dem Bildschirm, mit dessen Hilfe Sie den UHF-Kanal Ihres 
Farbfernsehers nachjustieren konnen. 

Eine entsprechende Bildschirmausgabe dieses Programms finden Sie in 
Abb. 2.20. 



2.3.1 Zeichnen von Punkten, Linien und Kreisen 

Zum Zeichnen von Punkten und Linien dient, wie Sie schon im vorheri- 
gen Kapitel erfahren haben, die PLOT-Anweisung. Zum Zeichnen von 
Punkten und Linien stehen Ihnen vier Farben zur Verfugung, Einen 
Punkt oder eine Linie loscht man, indem man als Zeichenfarbe dieselbe 
Farbe wie die Hintergrundfarbe verwendet. Ein einf aches Beispiel ist 
eine Punktewolke, bei der die Farbe und die Koordinaten des Punktes aus 
Zufallszahlenmit Hilfe der RND-Funktion ermitteltwerden (Abb. 2.21). 
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Abb. 2.19: Programm zur Erzeugung eines Testbilds 




Abb. 2.20: Ein Testbild hilft bei der Justierung des Farbfernsehers. 
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Abb. 2.21: Programm zur Erzeugung einer Punktewolke 



Wird die PLOT-Anweisung in Programmzeile 80 mit einem TO oder; 
einem zweiten Koordinatenpaar versehen, dann werden anstelle der; 
Punkte Linien auf dem Bildschirm gezeichnet. Hier gibt es zwei Varian- 
ten, deren Unterschied Sie selbst nachvollziehen konnen, indem Sie im 
o. a. Programm folgende Anderungen vornehmen: 

21 PLOT 0,0 
80 PLOT TO X,Y 

Bei dieser Variante wird immer eine neue Linie an den Endpunkt der vor- 
herigen angehangt. Diese Form der PLOT-Anweisung ist sehr anwender- 
freundlich ausgelegt, da die Anzahl der TO-Elemente nicht auf eines 
beschrankt ist: 

PLOT 0,0 TO 159,0 TO 159,101 TO 0,101 TO 0,0 

Durch diese Anweisung wird z. B. ein Rahmen um den FGR-Bildschirm 
erstellt. Dadurch werden gegeniiber der anderen Variante eine Reihe von 
Befehlen und einiges an Arbeitsspeicher eingespart: 

PLOT 0,0 TO 159,0:PLOT 159,0 TO 159,101 PLOT 159,101 TO 
0,1 01 :PLOT 0,1 01 TO 0,0 

Diese Anweisungsfolge ist in ihrer Wirkung identisch mit der vorherigen. 
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— . pahigkeit Ihres Colour-Genie, Linien zeichnen zu konnen, ist recht 

fltzlich. Besonders interessant wird das Arbeiten mit dieser Grafik 

^edoch erst durch die Fahigkeit des Rechners, auch kreisformige Darstel- 

i en m U nterstutzen. Dazu dient die CIRCLE- An weisung, wie Sie sie 

in programmzeile 50 sehen: 




Abb. 2.22: Erzeugung von Kreisen mit Hilfe der CIRCLE-Anweisung 



Im einen Kreis zu zeichnen, mussen der CIRCLE-Anweisung drei Werte 
flbergeben werden. Die ersten beiden kennzeichnen die X- und Y-Koor- 
dinate des Mittelpunkts, die dritte den Kreisradius. 

Ganz rund erscheinen die Kreise eigentlich in den wenigsten Fallen. Alle 
Kreise sind ein wenig oval. Zwar laBt sich dies zum Teil vom Fernseher 
her korrigieren. Eine solche Korrektur wirkt sich jedoch auf die ubrigen 
Bildschirmausgaben entsprechend aus und ist daher nicht empfehlens- 
wert. 

Umgangen werden kann dies, indem man die Bildpunktkoordinaten 
eines Kreises berechnet und einen Kreis iiber die PLOT-Anweisung dar- 
stellt. In diesem Falle konnen Sie nicht nur komplette Kreise, sondern 
auch Kreisbogen und Ellipsen konstruieren: 
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10 


FCLS 


20 


FCOLOUR 3 


30 


I NPUT "MI TTELPUNKT WAAGERECHT " ; MX 


40 


I NPUT " M I TTELPUNKT SENKRECHT " j MY 


50 


I NPUT " KRE I SRAD I US " j R 


60 


INPUT"ANFANGSWINKEL" ; AM 


70 


INPUT"ENDWINKEL" ; EM 


B0 


IF EW=0 THEN EW=360 


90 


INPUT"X:Y VERHAELTNIS ls";VY 


100 


IF VY=0 THEN VY=.9 


110 


FGR 


120 


PI-3. 1415927 


130 


AW=AW/1G0«PI 


140 


EW=EW/180*PI 


150 


FOR A-AW TO EW STEP PI/(2«PI*R) 


160 


X=(R*COS(A)+MX> 


170 


Y=(R*SIN(A>) 


180 


Y=VY*Y 


190 


Y=MY-Y 


200 


IF (X<0> OR (X>159) OR <Y<0) OR 




230 


210 


IF A-AW THEN PLOT X,Y:GOTO230 


220 


PLOT TO X,Y 


230 


NEXT A 



(Y>101> THEN 



Abb. 2.23: Erzeugung eines Kreises durch Berechnung der einzelnen Koordinaten- 
punkte 



Zeile 20 bis 90 machen den Eingabeteil des Programme aus. Zwingend 
vorgeschrieben sind hier die Eingaben fur den Mittelpunkt und den 
Radius. Alle iibrigen Eingaben konnen durch < RETURN > iibergangen 
werden. In diesem Falle wird dann ein Vollkreis gezeichnet, bei dem die 
Lange des waagerechten gleich der des senkrechten Radius ist. 

In Abb. 2.24 finden Sie eine Bildschirmausgabe dieses Programms, bei 
dem folgende Werte eingegeben wurden: 

MITTELPUNKT WAAGERECHT ? 80 
MITTELPUNKT SENKRECHT ? 50 
KREISRADIUS ? 50 
ANFANGSWINKEL ? 
ENDWINKEL ? 360 
X-YVERHALTNIS1:1 
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Abb. 2.24; Ein mit dem Programm aus Abb. 2.23 erstellter Kreis 



^23.2 Farbiges Ausfiillen von Flachen 
Eine leistungsstarke Anweisung des Colour-Genie ist der PAINT-Befehl. 
Mit dieser Hilfe konnen Sie beliebige Flachen, die durch die Kantenlinien 
einer Figur vorgegeben sind, farbig ausmalen. Starten Sie dazu noch ein- 
mal das Programm aus Abb. 2.23 (Ellipse/Kreis) mit den dort vorgegebe- 
ncn Werten. Wie Sie den Programmzeilen 10 und 20 entnehmen konnen, 
wurde in diesem Programm die Farbe 1 als Hintergrundfarbe und die 
Farbe 3 als Zeichenfarbe gewahlt. Diese Information ist wichtig, da durch 
die PAINT- Anweisung immer so lange Flachen farbig ausgemalt werden, 
bis der Rechner auf dem Grafikbildschirm eine bestimmte Farbe vorfin- 
det, die er als Begrenzungsfarbe auffaBt. Die Farbe Orange (Farbe 3) ist 
also auf die Kreisflache bezogen eine Begrenzungsfarbe. Um dieses Kreis 

^jnitgriiner Farbe auszumalen, geben Sie einfach folgende Anweisung ein: 

PAINT 80,50,4,3 

iese Anweisungsfolge bedeutet fiir den Rechner folgendes: 

Male so lange die Kreisflache, beginnend mit der Bildschirmkoordinate 
80,50 in der Farbe Griin (Nr. 4) aus, bis du an orangefarbene (Farbe 3) 
Grenzen stoBt. Dann beende den Zeichenvorgang. 
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Zur PAINT- Anweisung gehort also ein Koordinatenpaar, eine Zeichen- 
farbe und eine Begrenzungsfarbe. 

Nun kann es vorkommen, da6 die Linien, die eine farbig auszufiillende 
Flache begrenzen, selbst verschiedene Farben besitzen, wie in folgendem 
Beispiel: 



10 


FCLS 


1 












20 


FCOLOUR 


2 










30 


FBR 














40 


PLOT 


Ii3 


10 


TO 


100 


4 




30 


FCQLOUR 


3 










60 


PLOT 


TO 


60 


,60 


TO 


1. 


10 


70 


GOTO 


70 













Abb. 2.25: Eine Dreiecksflache soil farbig ausgemalt werden 



Diese Dreieckseiten sind mehrfarbig. Um diese Flache farbig ausfullen zu 
konnen, miissen sowohl Farbe 2 als auch Farbe 3 als Begrenzungsfarbe 
ausgewiesen werden. Soil wiederum grim ausgemalt werden (Farbe 4), so 
lautet die entsprechende Anweisung: 

PAINT 60,20,4,2,3 



2.4 DAS ARBEITEN MIT BILDSCHIRMSTEUERZEICHEN 

Obwohl Sie vielleicht nicht so sehr darauf geachtet haben, kennen Sie 
schon eine Reihe von Bildschirmsteuerzeichen aus dem Kapitel „Em 
Grafikeditor". In der dort gezeigten Tastatureingaberoutine wurden den 
Pfeiltasten auf der Tastatur neue Funktionen zugewiesen. Hier noch ein- 
mal dieser Programmbestandteil: 



io 


CLS 




20 


COLOUR 1 




30 


PRINT CHR*(14>; 




40 


Y*=INKEY*t IFY*=" H THEN40 


50 


IFY*=CHR* C 13) THENY* 


=CHR* ( 29 ) +CHR* ( 26 ) 


60 


IFY#=CHR* (91 ) THENY* 


=CHR*(27) 


70 


I F Y*=CHR* (10) THENY* 


=CHR*(26) 


SO 


IFY*=CHR* (9) THENY*= 


CHR*(25) 


90 


I FY*=CHR* ( 8 ) THENY*= 


CHR*(24) 


1 00 PR I NT Y* ; : BOT040 





Abb. 2.26: Tastatureingaberoutine 
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Alle aufgefiihrten ASCII-Codes in diesem Programm, deren Werte klei- 
ner sind als 32, reprasentieren sog. Steuerzeichen. Sie tragen diesen 
Namen deshalb, weil sie nicht, wie alle iibrigen ASCII-Codes, ein auf dem 
Bildschirm darstellbares Zeichen reprasentieren, sondern 

a) entweder die Position oder Darstelhmg des Cursors auf dem Bild- 
schirm verandern oder 

b) den Bildschirm oder Teile davon loschen. -^ 

Wenn Sie in Ihrem Colour-Genie-Handbuch die Seite 145 aufschlagen, 
finden Sie dort eine sog. SPECIAL CODE Tabelle. Dort werden die 
Funktionen einiger Bildschirmsteuerzeichen erlautert. Nun wissen Sie 
z. B . , dafi Zeile 30 des o. a. Programms den Cursor einschaltet. Auch die 
Funktion der iibrigen Bildschirmsteuerzeichen konnen Sie dieser Tabelle 
entnehmen. 

Sie sollen an einem Beispiel erkennen, wie man Steuerzeichen effektiv 
einsetzen kann: 



10 CLS:CLEAR2000 

20 PRINT«40,"DIESER TEXT BLEIBT UNBEE I NFLUSST " } 

30 A*=»MELDUNG 1 1ST EIN ETWAS LAEN6ERER TEXT" 

40 B*=" MELDUNG 2 1ST KUERZER" 

50 PRINT«0,; 

60 PRINTA*; 

70 FOR T-l TO 5001 NEXT T . *"■ ' 

80 PRINT«0,( 

90 PRINTB*; 

100 GOTO 100 



Abb. 2.27: Ein Beispiel fur die Anwendung von Bildschirmsteuerzeichen 

Wenn Sie dieses Programm starten, wird zuerst links oben auf dem Bild- 
schirm MELDUNG 1 1ST EIN ETWAS LAENGERER TEXT ausgege- 
ben. Nach einigen Sekunden wird dieser Text durch die neue Information 
MELDUNG 2 1ST KUERZER iiberschrieben. Trotzdem bleibt der hin- 
tere Teil des vorher ausgegebenen Textes nach wie vor auf dem Bild- 
schirm stehen. Diesen unerwunschten Begleiteffekt konnen Sie einfach 
beseitigen, indem Sie ein Steuerzeichen verwenden, das alle Texte von 
der Cursorposition bis zum Zeilenende loscht. Dieses Zeichen hat den 
ASCII-Code 30. 

85 PRINT CHR${30); 

Starten Sie mit dieser Programmzeile das Programm neu. Nun finden 
keine Uberlappungen der ausgebenen Texte mehr statt. 

Nur wenige Steuerzeichen sind direkt iiber die Tastatur ansprechbar. 
Wenn Sie sich Ihre Tastatur anschauen, fallen Ihnen sicherlich zuerst die 
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Pfeiltasten ins Auge. Wie konnen Sie nun feststellen, welcher ASCII- 
Code bei Betatigung einer Taste von der Tastatur an den Rechner weiter- 
gegeben wird? 

Lassen Sie uns systematisch vorgehen. Sie betatigen eine Taste, und im 
Rechner findet eine Reaktion darauf statt. Das Colour-Genie hat also von 
der Tastatur ein Zeichen eingelesen und weiterverarbeitet. Bevor wir wis- 
sen, worm diese Weiterverarbeitung bestand, miissen wir dieses Zeichen 
kennenlernen. Benotigt wird also ein Programm, das eine Tastaturab- 
frage durchfuhrt und, sobald eine Tastenbetatigung erfolgt, das betref- 
fende Zeichen erf afit und dessen Charakteristika auf dem Bildschirm aus- 
gibt. Da alle Zeichen, iiber die Ihr Colour-Genie verfiigt, in einer sog. 
ASCII-Tabelle registriert und mit einem Wert von 1 bis 255 belegt sind, 
konnen Sie mit Hilfe der BASIC-Anweisung PRINT ASC (betatigte 
Taste) sich diesen Wert ausgeben lassen und die gewunschten Riick- 
schliisse auf Art und Funktion des Zeichens Ziehen. 

Sie benotigen also erst einmal ein Programm, das die Tastaturabfrage 
durchfuhrt und in der Lage ist, ein Zeichen in einer Variablen, z. B. X$, 
zu erfassen: 



10 


X*=1NKEY* 










20 


IF X*=""THEN 


10 








30 


PRINT "Die betaetigt 


e Taste 


1 ie-fert 


das 


Zeichen mit dem 


ASCII- 


Code : " 


■ABC(X*> 




40 


SOTO 10 











Abb. 2.28: Der ASCII-Code einer betdtigten Taste wird ausgegeben 

Starten Sie das Programm, und betatigen Sie die Taste A. Es erscheint fol- 
gendes auf dem Bildschirm: 

Die betaetigte Taste liefert das Zeichen mit dem 
ASCII-CODE: 65 

Wenn Sie nun in Ihrer ASCII-Code-Tabelle auf Seite 145 nachschauen, 
werden Sie dies bestatigt finden. Sie konnen auch andere Tasten, wie 1, ( 
usw . betatigen und entsprechende Vergleiche in der Tabelle durchf uhren . 

Betatigen Sie nun einmal die Taste <Pfeil links>. Sie sehen folgende 
Bildschirmausgabe: 

Die betaetigte Taste liefert das Zeichen mit dem 
ASCII-CODE: 8 

Wenn Sie nun wieder auf die ASCII-Tabelle zuriickgreifen, finden Sie 
dort in der ersten Spalte hinter der 8 den Text BS. Das ist die Abkiirzung 
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fur den Namen dieses Steuerzeichens: „Backspace", das heiSt „riick- 
warts". Im Tabellenteil SPECIAL-Codes finden Sie auch eine Erlaute- 
rung dazu: „L6scht letztes Zeichen". 

Nehmen Sie sich nun bitte ein Blatt Papier zur Hand, und notieren Sie sich 
die ASCII-Zeichen fur 



Pfeil links 


<8> 


Pfeil rechts 


<9> 


Pfeil runter 


<10> 


Pfeil hoch 


<91> 


RETURN 


<13> 


SHIFT Pfeil links 


<24> 


SHIFT Pfeil rechts 


<25> 


SHIFT Pfeil runter 


<26> 


SHIFT Pfeil hoch 


<27> 


SHIFT RETURN 


<13> 



Die Ergebnisse miiBten mit den Werten in Klamraern identisch sein. 
Andern Sie nun bitte unser Programm wie folgt: 

5CLS 

30 PRINT X$; 

Starten Sie es, geben Sie beliebigen Text ein, und experimentieren Sie mit 
den Pfeiltasten und deren <SHIFT>-Kombinationen. Vergleichen Sie 
jedesmal anhand Ihrer Mitschrift, welches Steuerzeichen auf dem Bild- 
schirm ausgegeben wurde, welche Funktion es laut ASCII- und SPE- 
CIAL-CODE-Tabelle besitzt und wie seine Auswirkungen auf den Bild- 
schirmtext sind. Ihnen wird auffallen, daB die Betatigung der RETURN- 
Taste z. B. den unangenehmen Nebeneffekt besitzt, zwar auf die nachste 
Zeile zu verzweigen, dort eventuell stehenden Text jedoch zu loschen. 
Lassen Sie uns diesen Nebeneffekt beseitigen. 

In der SPECIAL-Code-Tabelle finden Sie die Steuerzeichen fiir „ Cursor 
zum Zeilenanfang" und „Cursor eine Zeile tiefer" als CHR$(29) und 
CHR$(26) definiert. Ebenfalls wissen Sie anhand Ihrer Aufzeichnungen, 
daJ3 die RETURN-Taste den ASCII-Code 13 liefert und dieser in der 
Variablen X$ als CHR$(13) gefuhrt wird. 

Wenn Sie nun eine Zeile 25 definieren, 

25 IF X$=CHR$(13) THEN X$=CHR$(29)+CHR$(26) 

ist der „Nebeneffekt" weg, und Sie konnen auf einer ganzen Bildschirm- 
seite Text erstellen und korrigieren. 
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Kapitel D 

Einsatz als Tischrechner 



Dieses und die folgenden Kapitel sollen Ihnen helfen, sich mit dem 
Colour-Genie und seinen Eigentumlichkeiten vertraut zu machen. Dazu 
gehort eine Menge Theorie, die solche Informationen beinhalten soil, 
denen Sie, soweit sie im Handbuch aufgefuhrt waren, bestimmt nicht viel 
Beachtung schenken. 

Das folgende Kapitel ist den mathematischen Grundlagen gewidmet. 



3.1 ZAHLENDARSTELLUNG 

Der Rechner unterscheidet zwischen ganzen Zahlen und Gleitkomma- 
zahlen. Fur ganze Zahlen werden im Rechner zwei Speicherplatze belegt. 
Ein solcher Speicherplatz wird Byte genannt. Da jedes Byte Zahlenwerte 
zwischen und 255 erfassen kann, konnen folglich mit zwei Bytes 256 mal 
256, also 65536 verschiedene Zahlen dargestellt werden. Leider braucht 
man zum Arbeiten mit dem Rechner auch negative ganze Zahlen. Aus 
diesem Grunde wurde festgelegt, daB mit zwei Bytes der Zahlenbereich 
—32767 bis 32767 dargestellt werden soil. Sollte Ihnen noch unklar sein, 
warum dies so ist, dann lesen Sie bitte nochmal in Ihrem Handbuch Kapi- 
tel 32 Seite 104ff . die Erlauterungen zu Bit, Byte und Hexadezimalzahlen 
nach. Dort wird auf den Seiten 105 und 106 beschrieben, warum man die 
hexadezimale Zahl F000 unterschiedlich interpretieren kann, namlich 
einmal als negative Zahl —4096 und zum anderen als positive Zahl 61440. 

In der Praxis wird haufig dann mit ganzen Zahlen gerechnet, wenn Spei- 
cheradressen berechnet und Zahlungen vorgenommen werden oder wenn 
aus sonstigen Griinden unbedingt vermieden werden muB, daB bei 
Berechnungen Nachkommastellen auftreten. Soil der Rechner nur mit 
ganzzahligen Werten arbeiten, muB ihm das explizit iiber den Variablen- 
namen mitgeteilt werden. Dies geschieht durch Anhangen des Prozent- 
zeichens an den Variablennamen oder alternativ durch die DEFINT- 
Anweisung (s. a. BASIC-Handbuch Seite 13 und 72). 

Verfolgen Sie in eigenen Programmen eine solche Linie konsequent, 
indem Sie bestimmte Variablen von vornherein als ganzzahlig definieren, 
dann konnen Sie eine Menge Speicherplatz sparen. 
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Da ansonsten im Microsoft-BASIC mit Gleitkommazahlen gearbeitet 
wird, werden auch ganze Zahlen in Gleitkommazahlen umgewandelt und 
weiterverarbeitet. Nur wenn explizit per Definition durch die DEFINT- 
Anweisung oder durch die Variablenkennung % eine Zahl als ganzzahlig 
festgelegt ist, wird diese auch als solche gespeichert. 

Im Microsoft-BASIC kann mit zwei verschiedenen Arten von Gleitkom- 
mazahlen gerechnet werden. Dies verdeutlicht folgendes Beispiel: 

PRINT 22/7 
3.14286 
READY 
> 

einerseits und 

PRINT 22#/7# 

3.142857142857143 

READY 

> 

andererseits. 



Im ersten Fall ist das Ergebnis sechs-, im zweiten Fall sechzehnstellig. 
Man spricht hier von Gleitkommazahlen einfacher und doppelter Genau- 
igkeit. Was ist iiberhaupt eine Gleitkommazahl? 

Zur Erzeugung einer Gleitkommazahl wird jeder eingegebene Zahlen- 
wert.zunachst einmal in eine andere Schreibweise umgerechnet. Man 
nennt diesen Vorgang Normieren. Hierbei ermittelt der Rechner eine 
Zahl zwischen 0.5 und 1, die, multipliziert mit einer Potenz von 2, dem 
Wert der eingegebenen Zahl entspricht, z. B.: 

6 = 0.75*2 3 

Hier wurde beim Normieren eine Zahl zwischen 0,5 und 1 ermittelt, nam- 
lich 0.75. Fur diese Mantisse stehen drei Bytes zur Verfiigung, wenn es 
sich urn eine Gleitkommazahl mit einfacher Genauigkeit handelt, und sie- 
ben Bytes, wenn es sich um eine Gleitkommazahl mit doppelter Genauig- 
keit handelt. Die Umrechnung einer Zahl in eine Mantisse und einen 
Exponenten geht nicht immer auf . Es ergeben sich Fehler, deren Ursache 
darin zu finden ist, daB eben nur fur eine gewisse Anzahl Nachkommastel- 
len Platz in den fur eine Zahl zur Verfiigung gestellten Bytes ist. Will man 
z. B. den Wert 7.9999999999 in der Variablen A# speichern und nicht 
den Wert 8, ist es notwendig, auf Gleitkommazahlen doppelter Genauig- 
keit auszuweichen. Dies konnen Sie leicht nachvollziehen: 
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und 



X=7.9999999999 

PRINT X 

8 

READY 

> 



A#= 7.9999999999 

PRINT A# 

7.9999999999 

READY 

> 



Der Sinn dieser Normierung besteht darin, in moglichst wenigen Bytes 
moglichst viele signifikante Ziffern zu erfassen. Dies wird leicht verstand- 
lich, wenn man die Zahlen 0.12345678 mal 10 hoch -6 und 0.00000012 
betrachtet. Beide Zahlen wiirden zur Erfassung die gleiche Anzahl von 
Bytes benotigen. 

Das Microsoft-BASIC verfugt ubrigens uber eine Funktion, die 
VARPTR (Variable) heiBt und eine wertvolle Hilfe darstellt, wenn es 
darum geht, rechnerinterne Vorgange wie die Normierung von Gleitkom- 
mazahlen nachzuvollziehen. Dieser VARPTR-Befehl ermittelt fiir eine 
Variable genau die Adresse im Speicher, die fiir eine Wertzuweisung die- 
ser Variablen reserviert wurde. Wenn Sie also irgendwo in einem Pro- 
gramm eine Variable als 



A#=6 



definiert haben und nun wissen wollen, wo die Zahl 6 als Gleitkommazahl 
doppelter Genauigkeit abgelegt wurde, kann Ihnen diese VARPTR- 
Funktion eine wertvolle Hilfe sein. Dazu folgendes Beispiel: 

10A#=6 

20 PRINT VARPTR(A#) 



Wenn Sie dieses Programm starten, gibt Ihnen der Rechner eine Adresse 
innerhalb seines Programmspeichers aus, wo er fiir die Variable A mit 
dem Wert 6 Platz geschaffen hat. 

Mit Hilfe des folgenden Programms konnen Sie den Rechner anweisen, 
Ihnen weitere Informationen iiber Mantisse und Exponent zu erteilen: 
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]« CLS PRIHT"SQ UIRD DER UERT FUER DIE ¥ 

ARIftBLE At IHSPEICHER ABGELEGT" 

28 fi#=6='At 1ST DIE DEF. VARIABLE 

38 AD^VARPTRCAt) , AD=ERNITTELTE ADRESSE 

*8 FOR X=AD TO AD+7 

58 PRIHT"MERT ";X-AD+1;"= *; 

68 U=PEEK<X> 

78 PRINTUSIHG"#M";U, PRINT" DEZINAL = ■ 

38 PRINTHIDfC "8123456789ABCDEF" INTCU/16 
)+1 . 1 );HID*C"8123456789ABCDEF",U-IHT(U/t 
6»l6+1,1>;" HEXADEZINAL.' 
98 'DIE IH ZEILE 88 VERUEHDETE FUHKTION 
UIRD EIHGEHEND IH KAPITEL 3.7 ERLAEUTERT 

188 NEXT X 
READY 



Abb. 3. 1 : Der Interpreter kann die Adressen ermitteln, in denen er die Werte ablegt, die 
Variablen zugewiesen wurden. 













T SO UIRD DER UERT FUER 
1 SPEICHER ABCELEGT: 
f UERT 1 = 8 DEZINAL 
UERT 2 : 8 DEZINAL 
UERT 3 = 8 DEZINAL 
' UERT 4 = 8 DEZINAL 
UERT 5 8 DEZINAL 
UERT 6 ■ 8 DEZINAL 
UERT 7 : 64 DEZINAL 
UERT 8 = 131 DEZINAL 
READY 
>■ 


DIE VARIABLE At IN | 

= 88 HEXADEZINAL. 1 
= 88 HEXADEZINAL | 
= 88 HEXADEZINAL. 
= 88 HEXADEZINAL. 
= 88 HEXADEZINAL. 
= 88 HEXADEZINAL. 
= 48 HEXADEZINAL. 
= 83 HEXADEZINAL. 













Abb. 3.2: So wird die Gleitkommazahl 6 im Speicher abgelegt 
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Der Rechner bringt eine Bildschirmausgabe wie in Abb. 3.2. 

Was sagt diese Bildschirmdarstellung aus? 

Die Zahl 6, so wurde weiter oben festgestellt, entspricht normiert dem 
Wert 0.75 * 2 hoch 3. Die rechnerinterne Mantissendarstellung fur 0.75 ist 

0100 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 

Das erste Bit, in diesem Fall 0, reprasentiert das Vorzeichen (es handelt 
sich also urn eine positive Zahl). Das nachste Bit, das einzige gesetzte in 
dieser Mantisse, reprasentiert den Wert 0.25. Das danach folgende wurde 
den Wert 0.125 reprasentieren. Es fallt auf, daB das Bit fur den Wert 0.5 
fehlt, denn 0.5 plus 0.25 ergibt erst 0.75. Dieses Bit wird gespart, da man 
ja generell weiB, daB die Zahlen ab 0.5 aufwarts liegen und folglich immer 
0.5 in ihnen enthalten ist. 

Der Sinn dieser Normierung ist darin zu sehen, moglichst viele signifi- 
kante Ziffern zu speichern. Die Zahl 0.123456789 * 10 hoch -8 enthalt 
verstandlicherweise mehr Informationen als die Zahl 0.0000000001. Wiir- 
den also z. B. bei sehr kleinen Zahlenwerten fuhrende Nullen auch als 
solche abgespeichert, ginge eine Menge Speicherplatz verloren. DaB dem 
keinesfalls so ist, konnen Sie dem Beispielprogramm in Abb. 3.1 entneh- 
men, indem Sie in Zeile 20 fur die Variable A# andere Zahlen, z. B. sol- 
che mit extrem vielen Nachkommastellen, einsetzen. Solange die Anzahl 
der signifikanten Ziffern sechzehn nicht iiberschreitet, wird die Gleit- 
kommazahl korrekt in acht Bytes abgespeichert. 

Neben der Mantisse wird bei der Normierung auch der Exponent ermit- 
telt. Fur die Zahl 6 ist dies der Wert 3. DaB wir in Abb. 3.2 unter dem 
Wert 8 dennoch keine 3, sondern die Zahl 131 vorfinden, beruht auf 
rechentechnischen Griinden. Bei der Normierung wird zu jedem ermittel- 
ten Exponenten die Zahl 128 hinzuaddiert. Jede im Microsoft-BASIC 
ermittelte Gleitkommazahl benotigt fur die Erfassung des Exponenten 
ein Byte. Eine Gleitkommazahl benotigt also insgesamt 4 Bytes, wenn sie 
in einer Variablen einfacher Genauigkeit erfaBt wurde (mit maximal 
sechs signifikanten Ziffern), und 8 Bytes, wenn sie in einer Variablen 
dopelter Genauigkeit erfaBt wurde; hier konnen sechzehn signifikante 
Ziffern erfaBt werden. 



3.1.1 Exponentielle Schreibweise 

Neben der allgemeinen Schreibweise fur Gleitkommazahlen, wie die Ein- 
gaben 3.1415927 oder -99.53, gibt es die Schreibweise in Exponential- 
form. Hier schreibt man 

4.318E4 

und meint nichts anderes als 4.318 * 10 hoch 4. 
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In diesem Format steht also rechts vom E die Anzahl der Stellen, um die 
das Komma in der Mantisse nach rechts, oder z. B. bei der Zahl 
4.318E— 1, nach links geriickt werden mu6. Bei der Exponentialschreib- 
weise im Microsoft-BASIC wird anstelle des Buchstabens E oft der Buch- 
stabe D verwendet. Dadurch wird dem Rechner mitgeteilt, daB die einge- 
gebene Zahl als Gleitkommazahl doppelter Genauigkeit behandelt wer- 
den soil. Hierbei ist zu beachten, daB z. B. bei einer Eingabe der Rechner 
nur dann mit doppelter Genauigkeit rechnet bzw. rechnen kann, wenn die 
Variable, der dieser Wert zugewiesen wird, eine Variable doppelter 
Genauigkeit ist. Zwar ist auch fur eine Variable einfacher Genauigkeit 
eine Eingabe der Form 

0.1234567890123D-1 

moglich, diese Zahl wird aber dann als .0123457 gespeichert. 

Die Eingabe von Gleitkommazahlen mit doppelter Genauigkeit ist also 
nur dann angebracht, wenn diese auch vom Rechner in doppelter Genau- 
igkeit weiterbearbeitet werden kann. 

In diesem Zusammenhang ist noch ein weiterer Hinweis von Bedeutung: 

Wird eine Eingabe in Exponentialschreibweise vorgenommen, ist es drin- 
gend erforderlich, daB der Buchstabe E oder D, wie in den oben aufge- 
fiihrten Beispielen, als GroB- und nicht als Kleinbuchstabe eingegeben 
wird. Sollte sich trotzdem ein kleiner Buchstabe in einer Eingabe verir- 
ren, wird diese vom Rechner ignoriert, die Meldung 



?REDO 

j 

ausgegeben und eine neue Eingabe verlangt. Aus der Anzahl der zur Ver- 
fugung stehenden Bytes zur Erfassung einer Gleitkommazahl einfacher 
bzw. doppelter Genauigkeit laBt sich auch die kleinste bzw. groBte erfaB- 
bare Zahl ermitteln: Als zulassiger Zahlenbereich gilt — 1E38 bis + 1E38, 
genauer gesagt: 

-1.701411E+-38bis +1.701411E+-38 C ' 

fur Gleitkommazahlen einfacher Genauigkeit und 

-1.70141183454455D+-38 bis +1.70141183454455D+38 

fur Variablen doppelter Genauigkeit. 

Auch wenn Sie sich vom Rechner Zahlen ausgeben lassen, werden Sie 
manchmal feststellen, daB deren Werte, sobald sie iiber bzw. unter einer 
bestimmten Grenze liegen, in der exponentiellen Schreibweise ausgege- 
ben werden. Dies tritt in der Regel dann ein, wenn die Zahlen betragsma- 
8ig auBerhalb des Bereichs von 0.01 bis 999999.4 liegen. 
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Mit der Ausgabe von Gleitkommazahlen machen Sie sich am besten ver- 
traut, indent Sie folgendes kurze Programm eingeben und selbst experi- 
mentieren: 

10 INPUT A# 
20 PRINT A# 
30 GOTO 10 

Starten Sie dieses Programm, und geben Sie Zahlenwerte wie 24E5, 
-3.6E— 4, 8E6 und andere Gleitkommazahlen Ihrer Wahl ein. Sie sollten 
erst dann zum nachsten Kapitel iibergehen, wenn Sie sicher sind, diese 
Thematik verstanden zu haben. 



3.1.2 Zahlenansgabe mit PRINT USING 

Es kann auch Situationen geben, bei denen es wiinschenswert ist, Zahlen, 
die wegen Ihrer Grofie normalerweise in Exponentialschreibweise ausge- 
geben wiirden, in „normaler Schreibweise" ausgeben zu lassen. In einer 
Tabelle macht es sich z. B. nicht besonders gut, wenn dort eine Zahl wie 
6.45E8 auftaucht. In diesem Fall konnen Sie sich einer BASIC-Anwei- 
sung bedienen, die PRINT USING heiBt. 




Abb. 3.3: Mit Hilfe der PRINT USING-Anweisung konnen Sie Ausgabeformate vor- 
geben 
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Mit ihr konnen Sie ein gewiinschtes Ausgabeformat selbst vorgeben. 
Diese Anweisung finden Sie eingehend auf den Seiten 64ff . Ihres Hand- 
buchs beschrieben. Aus diesem Grunde soil hier auch nur ein kurzes Bei- 
spiel vorgestellt und nicht weiter erlautert werden. 

Angenommen, Sie rechnen im obigen Beispiel nur mit DM-Betragen, 
d. h., daft auszugebene Betrage maximal zwei Nachkommastellen und 
den Zusatz DM aufweisen sollen. Dazu miissen Sie Zeile 20 wie folgt 
abandern: 

20 PRINT USING"######### .## DM";A$ 

Eine entsprechende Bildschirmausgabe finden Sie in Abb. 3.3. 



3.2 OPERATIONEN 

Die tiblichen Regeln der Punkt- und Strichrechnung sind Ihnen sicherlich 
vom Taschenrechner her bekannt. Sie sollen hier aus diesem Grunde 
nicht detailliert behandelt werden, da Computer mit arithmetischen Ope- 
rationen nicht anders verfahren als Taschenrechner. Auch hier gelten die 
Regeln: 

Klammerrechnung geht vor Punktrechnung. 
Punktrechnung geht vor Strichrechnung. 

Ihr Colour- Genie-Handbuch widmet das ganze Kapitel 3 diesem Sach- 
verhalt. 

Was Ihnen allerdings nicht so gelaufig sein wird wie arithmetische Opera- 
tionen sind logische Operationen. Das Microsoft-BASIC kennt die drei 
logischen Operatoren 

AND OR und NOT. 

Das Ergebnis einer solchen logischen Operation ist entweder der Wert 
Null oder ein Wert ungleich 0, in der Regel — 1 . Der Zahlenwert Null wird 
hierbei vom Rechner als „falsch" interpretiert, der Wert —1 als „wahr". 

Mit logischen Operationen pruft man demzufolge den Wahrheitsgehalt 
von Aussagen. Wenn Sie den Rechner Bedingungen priifen lassen, z. B. 
in Form einer IF-Anweisung, fallt Ihnen dies in der Regel gar nicht auf, 

IFA=5 0RA=3THEN... 



da hier das Ergebnis einer logischen Operation gar nicht offen zu Tage 
tritt, sondern sofort vom Rechner intern weiterverarbeitet wird. DaB 
jedoch auch Aussagen wie 
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PRINT 1 AND 5 
oder 

PRINT OR 1 



logische Operationen darstellen und auch in dieser Weise vom Rechner 
verarbeitet werden, ist der Grund dafiir, daB wir uns naher mit diesen 
Dingen befassen mussen. Zunachst sollen Sie die Wahrheitstafeln der 
Operatoren AND, OR und NOT kennenlernen. 

OR 0-1 AND 0-1 NOT 0-1 



0-1 -10 

-1 -1-1 -1 0-1 

Dies sind also sogenannte Wahrheitstafeln fur Operationen. Solche 
Wahrheitstafeln geben immer Auskunft dariiber, wie das Ergebnis einer 
logischen Operation ist, wenn 

a) beide der gepriiften Bedinungen falsch sind; 

b) entweder die eine oder die andere Bedingung wahr ist; 

c) beide gepriiften Bedingungen wahr sind. 

Stellen Sie sich einmal vor, sie wollen den Wahrheitsgehalt der Aussage 

Ich heiBe Frank UND bin im Dezember geboren 

prufen, so kann diese Aussage entweder wahr oder falsch sein, je nach- 
dem, welche der folgenden Bedingungen als wahr oder falsch gegeben 
sind: 

1. Ich heiBe nicht Frank (0) UND ich bin im November geboren (0) 

2. Ich heiBe Frank (— 1) UND bin im November geboren (0) 

3. Ich heiBe Willi (0) UND bin im Dezember geboren (-1) 

4. Ich heiBe Frank (—1) UND bin im Dezember geboren (-1) 

Nur die letzte gepriifte Bedingung, Nr. 4, liefert in ihrer Gesamtaussage 
ein logisches „Wahr". Dies sagt auch die Wahrheitstafel aus: 

0AND ergibt (Falll) 

-1AND ergibt (Fall 2) 

0AND-1 ergibt (Fall 3) 

-1AND-1 ergibt -1 (Fall 4) 

Trotz alledem wird aus solchen Beispielen der Wahrheitsgehalt einer 
Aussage nicht immer ersichtlich. So ist z. B. die Aussage 

Ich gehe heute schwimmen ODER surfen 

in der Beziehung zweideutig, da sie entweder bedeuten kann: 
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Falll 

Ich gehe heute entweder schwimmen ODER ABER surfen 

Fall 2 

Ich gehe heute schwimmen, (ODER) surfen ODER vielleicht 

auchbeides. 

Spricht man vom „Schwimmen oder Surfen" und meint den ersten Fall, so 
ist der Wahrheitsgehalt der Aussage als falsch zu betrachten, wenn 
sowohl das eine als auch das andere getan wird. 

Den ersten Fall dieser ODER-Verknupfung nennt man, da man die Mog- 
lichkeit „sowohl Schwimmen als auch Surfen" ausschliefit, auch ein aus- 
schlieBendes oder exklusives ODER und verwendet XOR zur Unter- 
scheidung dieser beiden OR-Varianten. Wird im Microsoft-BASIC ein 
OR verwendet, ist dies grundsatzlich das einschlieBende OR, also die 
Variante, die auch dann eine wahre Gesamtaussage liefert, wenn beide 
der gepriiften Bedingungen wahr sind. Dies belegt auch die Wahrheitsta- 
fel. 

Der dritte der logischen Operatoren NOT kehrt den Wahrheitsgehalt 
einer Aussage einfach urn. 

Wenn etwas NICHT wahr ist, ist es falsch. Da6 hier auch der Rechner so 
vorgeht, konnen Sie leicht nachpriifen, indem Sie einfach 

PRINT NOT -1 

eingeben. Das Ergebnis ist, wie nicht anders erwartet, eine 0. 

Logische Operationen werden beim Colour- Genie bitorientiert abgear- 
beitet. Damit unterscheidet sich das Microsoft-BASIC wesentlich von 
BASIC-Interpretern auf anderen Rechnern. 

Dazu kurz zwei Beispiel (die Sie hoffentlich nicht zu sehr aus der Fassung 
bringen): 

PRINT 2 OR 3 

3 

READY 

> 

und 

PRINT 2 AND 3 

2 

READY 

> 

Diese recht seltsam erscheinenden Ergebnisse stiften eine Menge Verwir- 
rung, wenn man sich nicht dariiber klar ist, wie sie zustande komraen. 
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Dies ist jedoch sehr einfach: 
20R3 

2 i s t 00000010 
Verknupfung = OR 

3 ist 00000011 

ergibt 



in Dualschreibweise 
in Dualschreibweise 



00000011 = dezimal3 



Hier wurden Dualzahlen miteinander verkniipft, und zwar so wie 
Wahrheitstafel vorschreibt. Analog gilt dies auch fur die AND-Ve V § ? e 



rung: 

2 AND 3 

2 ist 
Verknupfung = AND 

3 ist 



niip. 



00000010 in Dualschreibweise 

0000001 1 in Dualschreibweise 



ergibt 



00000010 



dezimal 2 



Das Verwirrende, namlich, daB bei logischen Operationen, die eig e 
nur die Ergebnisse oder —1 kennen, plotzlich Ergebniss'e wie 2 n }^ c ^ 
auftauchen, liegt also nur daran, daB das Ergebnis der logischen \ ** 
kniipfung zweier Zahlen eine Bitkette ist, die im Microsoft-BASTo er ~ 



Dezimalzahl ausgegeben wird. 

Natiirlich ist es auch mdglich, mehr als zwei Bedingungen in einer 
„Mehrfachoperation" zu priifen: 9uasi 

PRINT 1 OR 7 OR 9 OR 1 1 

Treten bei solchen Operationen die Operatoren AND OR \ 
gemeinsam oder mehrfach auf, ist zu beachten, daB keinesfalls alle cP^ 
ratoren die gleiche Abarbeitungsprioritat besitzen. Wie bei arith 
schen Operationen die Klammerrechnung vor der Punktrechnun DCiet ^ 
Punktrechnung vor der Strichrechnung steht, ist die Bindunesstarlf ' ^ e 
Operation NOT groBer als die des AND , diese ist wiederurn groBer ? ^ er 
des OR. a * s die 

Auf gut deutsch heiBt das: Wenn Ihr Rechner die logische Operati 
PRINT OR 4 AND OR 8 

bestimmen soil, ist das das gleiche wie 



PRINT OR (4 AND 0) OR 8 
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Sollte dies nicht so ganz in Ihrem Sinne sein, miissen Sie durch das Setzen 
von Klammern Ihren (in dieser Beziehung ganz sturen) Partner Compu- 
ter iiberzeugen. 

Damit Ihnen hier keine Fehler unterlaufen, ist in Abb. 3.4 noch einmal 
eine vollstandige Reihenfolgetabelle aufgefiihrt, aus der Sie die Binde- 
starke, d. h. die Abarbeitungsprioritat der einzelnen Operatoren entneh- 
men konnen. 

Wohl die gelaufigste Variante logischer Operationen ist das Durchfiihren 
von Vergleichen. Hierfiir stehen Ihnen die Zeichen < , > und = sowie die 
entsprechenden Kombinationen zur Verfugung. Wiederum ist das Ergeb- 
nis eines solchen Vergleichs ein logischer Wert, der entweder ein „Wahr" 
oder ein „Falsch" reprasentiert und zahlenmaBig eine -1 oder liefert. 
Auch dieses ist beim Rechner leicht nachvollziehbar, indem Sie z. B. 



PRINT 1 =2 


READY 
> 



eingeben. Hierzu sollten Sie Kapitel 13 Ihres Handbuchs aufschlagen, wo 
als Entscheidungsbefehl Vergleichsoperationen behandelt werden. Neu 
ist an dieser Stelle auch nur, da6 hier logische Operationen nicht in der 
bekannten Form einer IF THEN-Anweisung auftauchen, sondern direkt 
in einer PRINT- Anweisung formuliert werden, was, wenn man gewohnt 
ist, das Gleichheitszeichen als Bestandteil einer Gleichung oder einer 
Wertzuweisung aufzufassen, einem irgendwie gegen den Strich geht. 

Wahrscheinlich legt sich dieses Unwohlsein wieder, wenn Sie folgendes 
eingeben: 

PRINT 1<2 
-1 

READY 
> 



Im ersten genauso wie im zweiten Beispiel fiihrt der Rechner einen Ver- 
gleich der beiden Zahlen 1 und 2 durch. Nur die Vergleichsoperatoren 
sind andere: einmal =, einmal <. 

Die Bedeutung des Gleichheitszeichens hangt also vom jeweiligen 
Zusammenhang ab. Wahrend bei der Schreibweise B=2 der Variablen B 
der Wert 2 zugewiesen wird, soil bei der Schreibweise PRINT B =2 iiber- 
priift werden, ob die Variable B den Wert 2 tatsachlich hat. 
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Bindestarke der Operatoren 


Abarbeitungspioritat 


() 


hochste 


+ -NOT 




A[ 




*/ 




+ - 




<<= >>= OX 




AND 




OR 


niedrigste 



Abb. 3.4: In welcher Reihenfolge Operationen durchgefiihrt werden, hdngt von der 
Bindestarke der Operatoren ab. 



3.3 VARIABLEN 

Kapitel 4 Ihres Handbuchs behandelt die verschiedenen Variablentypen 
und deren Anwendung in BASIC. In diesem Kapitel neigt man als Anfan- 
ger dazu, zwar zu registrieren, daB es da eine Reihe verschiedener Varian- 
ten gibt, ohne sich jedoch dariiber recht klar zu sein, wann und wo der 
Einsatz eines bestimmten Variablentyps von Vorteil sein kann oder wann 
er dringend erforderlich ist. 

Besonders verwirrend fur Ungeiibte ist die Vielfalt der existierenden 
Notationen wie !, %, $, #, die verschiedenen Definitionsanweisungen 
wie DEFINT, DEFSNG, DEFDBL, DEFSTR und die Konvertierungs- 
funktionen CSNG, CDBL und CINT, durch die einmal definierte Varia- 
blentypen wieder in andere Typen umgewandelt werden konnen. Dazu 
ein Beispiel: 

10 DEFSTR A 
20 A= "Hallo" 

Wie Sie sehen, wird durch die DEFSTR- Anweisung dem Rechner mitge- 
teilt, daB alle folgenden Variablen, die mit dem Buchstaben A beginnen, 
Zeichenkettenvariablen sind. Die DEFSTR-Anweisung bietet also in 
erster Linie eine andere Schreibweise fur Zeichenkettenvariablen, da 
kein $-Zeichen mehr an die Variable angehangt wird. In ahnlicher Form 
gilt dies auch fur die DEFDBL- Anweisung. Lesen Sie hierzu bitte in 
Kapitel 24 auf Seite 72ff . Ihres Handbuchs nach. 

Warum, meinen Sie, braucht man iiberhaupt so viele Variablentypen, wo 
doch zwei oder drei, vielleicht einer fur numerische Variablen 
(A,AA,BC,C9) und einer fur Zeichenkettenvariablen (A1$,B4$, etc.), 
vollstandig ausreichen? 
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Die wichtigste Erklarung ist wohl die, dafi Mikrocomputer wie das 
Colour-Genie vom verfugbaren Speicher her nicht so optimal bestuckt 
sind, daB sie es sich leisten konnen, groBe Mengen an Speicherplatz ein- 
fach dadurch zu vergeuden, daft sie dem Rechner jeweils vier oder acht 
Bytes zur Speicherung eines Variablenwerts zubilligen, wo effektiv nur 
zwei Bytes benotigt werden. 

Gerade bei langeren Programmen oder solchen, die mit Feldern arbeiten, 
kann eine solche Programmierung leicht Hunderte von Bytes beanspru- 
chen, die anderswo dringend fehlen. Wie sich dies z. B. bei Feldern, die 
im folgenden Kapitel zur Sprache kommen, auswirkt, konnen Sie selbst 
nachvollziehen, indem Sie folgende beide Befehlsfolgen vergleichen: 

NEW:PRINT MEM:DIMA{1 000):PRINT MEM 
einerseits und 

NEW:PRINTMEM:DIMA%(1000):PRINTMEM 
andererseits. 

In beiden Fallen haben Sie den Rechner dazu veranlaBt, Speicherplatz fur 
die Erfassung von 1000 Zahlenwerten zur Verfiigung zu stellen. Wenn Sie 
wissen, daB in diesem Feld nur ganze Zahlen erfaBt werden, verschenken 
Sie, wenn Sie nicht durch das Prozentzeichen oder eine DEFINT- Anwei- 
sung die Variable als ganzzahlig bestimmen, glatte 2000 Bytes. 

Das Prozentzeichen einer Variablen wird iibrigens nicht mitgespeichert, 
sondern stellt nur eine zusatzliche Information fur den Rechner dar, um 
welchen Variablentyp es sich handelt. Im Microsoft-BASIC ist es dem 
Benutzer freigestellt, eine derartige Typenkennung an Variablen anzu- 
hangen, wenn diese im Programm verwendet werden, oder alternativ 
dazu am Anfang des Programms durch eine DEFINT, DEFSNG oder 
DEFSTR Anweisung global alien in einem Programm verwendeten 
Variablen, die mit bestimmten Anfangsbuchstaben beginnen, solche 
Typenmerkmale zuzuweisen. 

Wollen Sie z. B. alien Variablen, die mit den Buchstaben A, B, C, D, L 
und M beginnen, das Attribut ganzzahlig zuweisen, so lautet die entspre- 
chende Anweisung: 

DEFINT A-D,L,M 

Vermeiden Sie die Verwendung von ganzzahligen Variablen, wenn Sie 
Divisionen vornehmen! 

10 DEFINT C 
20 C=4/3 
30 PRINT C 
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Tiefert das Ergebnis 

1 
READY 

> 

r Doch nicht nur die Typenkennung einer Variablen ist von Bedeutung. 
Auch bei der Verwendung des Variablennamens sind bestimmte Vor- 
schriften zu beachten. Die wichtigsten sind folgende: 

1. Der Name einer Variablen muB immer mit einem Buchstaben begin- 
nen. 

2. Ein Variablenname kann beliebig lang sein, sofern in ihm keine 
BASIC-Schliisselwdrter enthalten sind. 

3. Fur das Microsoft-BASIC sind jedoch nur die ersten zwei Stellen eines 
Variablennamens signifikant. So sind z. B . fur den Rechner die Varia- 
blen HAND, HASE und HA identisch. 

Demzufolge sind z. B. die Variablen OTTO und KONTO unzulassig, da 
beide das BASIC-Schliisselwort TO enthalten. In ahnlicher Weise gilt 
dies fur Variablen wie NOTEN, FORMEL, RAND etc. 

Bei der Verwendung von Variablen, die in ihrem Namen eine Aussage 
enthalten, ist also Vorsicht geboten! 

Erwahnenswert im Zusammenhang mit Wertzuweisungen an eine Varia- 
ble ist die Anweisung LET. 

Will man die Wertzuweisung fur eine Variable besonders betonen, kann 
man dies tun, indem man den Befehl LET vor die Variable setzt. Die Ver- 
wendung der LET Anweisung ist optional, d. h. es besteht kein Unter- 
schied darin, ob Sie in einem Programm LET A=7 oder einfach A=7 
schreiben. Bei Programmen allerdings, die hinterher compiliert werden 
sollen, d. h. in Maschinensprache iibersetzt, spielt sowohl die LET- 
Anweisung als auch die Verwendung von ganzzahligen Variablen eine 
erhebliche Rolle. Ein compiliertes Programm, bei dem hauptsachlich 
ganzzahlige Variablen verwendet werden, vor die zusatzlich eine LET- 
Anweisung gesetzt wird, laufen in compilierter Fassung zwischen 40 und 
60% schneller ab als solche Programme, in denen das nicht beriicksichtigt 
wurde. 



3.4 FELDER 

Schon im vorherigen Abschnitt wurde kurz ein Feld definiert, um zu ver- 
deutlichen, wie durch Verwendung von Variablen des richtigen Typs 
Speicherplatz gespart werden kann. Damit wurde, wenn auch nur als Mit- 
tel zum Zweck, diesem Kapitel vorgegriffen. Dort stand als Kernaussage 

DIM A% (1000) 
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Die erste Auswirkung dieser Anweisung auf den Rechner, daB namlich 
eine Menge Speicherplatz nach Betatigung der <RETURN>-Taste 
plotzlich nicht mehr zur Verfiigung stand, haben Sie schon festgestellt. 
Dieser Platz wurde „reserviert" fur viele Variablen, die alle den Namen 
A% haben und zu ihrer Unterscheidung einen zusatzlichen sog. Index 
fuhren, der kennzeichnet, um welches A% es sich handelt. So konnen Sie 
z. B. nach Eingabe der o. a. DIM- Anweisung A%(501) mit dem Wert 
100 belegen: 

A%(501)=100: PRINT A%{501) 

Alle iibrigen A% -Variablen (mit dem Index bis 500 und 502 bis 1000) 
werden durch diese Wertzuweisung nicht beeinfluBt und behalten ihre bis 
dato zugewiesenen Werte. 

Wozu benotigt man derartige Einteilungen in der Praxis? Die Fachlitera- 
tur sagt dazu: Immer dann, wenn ein Problem von einer oder mehreren 
EinfluBgroBen abhangt und diese Grofien in ganzen Zahlen, beginnend 
etwa mit oder 1, ausgedruckt werden konnen. 

Dazu ein Beispiel: Stellen Sie sich einen Wohnblqck vor, bestehend aus 
mehreren gleichartig aufgebauten Hochhausern. Uber die dort wohnen- 
den Familien wollen Sie Daten sammeln und spater auswerten. Es inter- 
essiert Sie z. B. wie viele Personen jeweils in einem Haushalt leben. 

Betrachten Sie zuerst eine Etage dieses Wohnblocks, z. B. die vierte. Sie 
wissen, daB dort, sagen wir, 8 Wohnungen existieren. 

In Wohnung 1 wohnt eine sechskopfige Familie, in Wohnung 2 ein ver- 
witweter Rentner. Da 8 Wohnungen in Etage 4 zur Verfiigung stehen, ist 
durch 

DIM E4(8) 

ein Feld hinreichend definiert. 

E4(l)=6 steht fur die sechskopfige Familie 
E4(2) = 1 steht fur den Rentner 

E4(x) = ? steht fur die x-te Wohnung in dieser Etage . 

Die Wohnungsnummer einer Etage ist also, um auf die o. a. Definition 
zuriickzukommen, eine abhangige EinfluBgroBe, was die Anzahl der in 
einem bestimmten Haushalt lebenden Personen in der 4. Etage angeht. 

Nun hat so ein Hochhaus in der Regel noch weitere Etagen. Gehen wir 
z. B. von 7 Etagen aus, benotigen wir zur Bestimmung eines ganz 
bestimmten Haushalts eine weitere EinfluBgroBe, die Etage, welche 
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Werte zwischen 1 und 7 annehmen kann. Ein Hochhaus HH% dieser 
Bauart ist durch 

DIM HH%(7,8) 

komplett in bestimmbare Wohnungseinheiten „zerlegbar". Soil beispiels- 
weise die Variable fur die Etagennummer EN lauten und die fur die Woh- 
nungsnummer WN, dann kann die sechskopfige Familie aus Etage 4 neu 
erfaBt werden durch 

„ EN=4:WN=1:HH%(EN,WN)=6 

w 

Die Erweiterung eines solchen Feldes urn weitere EinfluBgroGen, wie 
mehrere Stade (ST) und mehrere Hochhauser (HH), ist genausogut mog- 
lich. Sie konnten dann z. B. genau ermitteln, wie viele Personen in der 
Stadt 4, Hochhaus 3, Etage 4, Wohnungsnummer 8 leben. Ein solches 4- 
dimensionales Feld (vierdimensional deshalb, weil 4 EinfluBgroBen eine 
bestimmte Datenmenge kennzeichnen) liegt jedoch weit auBerhalb der 
Speicherkapazitat eines Mikrocomputers, da sich die Anzahl der Varia- 
blen, fur die Platz geschaffen werden muB, bei jeder neuen EinfluBgroBe 
um deren Maximalwert vervielfacht. Hinzu kommt, daB im Microsoft- 
BASIC des Colour-Genie ein Feldindex immer mit beginnt, so daB ein 
Feld der Form 

DIMA%(3) 

Platz fiir 4 Feldelemente liefert, namlich A%(0), A%(1), A%(2) und 
A%(3). Es ist in vielen Fallen jedoch verwirrend, das Feld mit dem 
Index in Berechnungen und Erfassungen mit einflieGen zu lassen. 

Die Eintragung der einzelnen Elemente in ein Feld ist zwar recht miih- 
sam, hat jedoch auch einige Vorteile. Sobald namlich alle Angaben voll- 
standig sind, kann man eine Vielzahl von Auswertungen durchfiihren, 
wie beispielsweise, wo Wohnungen leer stehen (ein O-Personen-Haus- 
halt), wo GroBfamilien zu finden sind etc. 

Genausogut konnen Sie ein weiteres Feld der Form 

DIM HH$(7,8) 
erstellen und dort Zeichenketten erfassen, wie 

HH$(5,4)="Familie Schultz" 
und so immer wissen, wer wo zu finden ist. 



3.5 FUNKTIONEN 

Zuerst eine Information vorweg, die fiir Colour- Genie Besitzer ohne Dis- 
kettenlaufwerk gilt. 
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Im Anhang finden Sie ein Maschinenprogramm, das auch unter Kasset- 
tenbetrieb das Arbeiten mit Funktionen erlaubt. Mit der DEF FN-Funk- 
tion, von der hier im folgenden die Rede ist, kann, wenn Sie nicht das im 
Anhang aufgefiihrte Treiberprogramm eingegeben und gestartet haben, 
sonst nur unter Disk-BASIC gearbeitet werden. 

Dem Kapitel „Funktionen" sollten Sie einen besonderen Stellenwert ein- 
raumen, da deren Anwendungsmoglichkeiten im Microsoft-BASIC viel- 
seitigsind. 

Eine Funktion stellt man sich immer sehr mathematikbezogen vor; schon 
allein Grund genug, einen groBen Bogen darum zu machen. SchlieBlich 
qualen Lehrer ihre Schiiler mit f(x)= 1/x und f(x)=sin(x) in der Regel so 
intensiv, daB Sie sicher keine groBe Lust verspiiren, dies auf Ihr Hobby 
auszuweiten. Im Zusammenhang mit BASIC konnen Funktionen jedoch 
vollstandig andere Bedeutungen erlangen. Dazu ein Beispiel: 

Sie wollen ein Programm schreiben, das Vornamen, Namen und Telefon- 
nummern iiber die Tastatur einliest und auf dem Bildschirm wie ein Tele- 
fonbuch ausgibt: 




Abb. 3.5: Anwendungsbeispiel fur Funktionen 
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Hier wurde eine Funktion in Zeile 7 definiert. Der Name dieser Funktion 
ist FN S$ . Hinter dem Funktionsnamen stehen in Klammern, durch Kom- 
mata getrennt, die sogenannten abhangigen Variablen: 

Die Variable fur den Vornamen Nl$ 
Die Variable fur den Nachnamen N2$ 
Die Variable fur die Vorwahl VW$ 
Die Variable fur die Rufnummer RN$ 

Was bedeutet diese definierte Funktion fur das Colour-Genie? Dem 
BASIC-Interpreter sagt diese Funktion folgendes: 

Wenn ich irgendwann im Programm auf einen Funktionsaufruf der Form 
FN S$(. . .) treffe, so muG ich die dahinter in Klammern stehenden Varia- 
blenwerte ermitteln und diese so weiterverarbeiten, wie es mir der Defini- 
tionsteil der Funktion (DEFFNS$) vorschreibt. 

Auf Zeile 7 bezogen bedeutet das, daB Nachname und Vorname ver- 
tauscht und durch ein Komma getrennt werden. AuBerdem soil zwischen 
der Vorwahl und der Rufnummer ein / stehen. 

Leicht nachvollziehbar? Wenn nein, geben Sie einfach einmal folgendes 
ein: 

PRINT FNS$("Kalle","Anton","0999","44444") 

und betatigen Sie die <RETURN>-Taste. Kennen Sie das Ergebnis 
schon? Es lautet 

Anton, Kalle . . . 0999/44444 \ 

Funktionen im Microsoft-BASIC treten also keinesfalls nur in der 
bekannten, mathematischen Form einer Funktionsgleichung auf. Viel- 
mehr kann man sie iiberall dort einsetzen, wo Gleichungen und Zuwei- 
sungen iibersichtlich gestaltet werden sollen, oder wenn in einem Pro- 
gramm eine bestimmte Gleichung haufig eingesetzt wird. 

DEFN CUR=PEEK(&H4020)+256*PEEK(&H4021 )-&H4400 

ermittelt zum Beispiel jedesmal die gegenwartige Position des Cursors auf 
dem Bildschirm, wenn Sie durch PRINT FNCUR eine entsprechende 
Berechnung wunschen. Aus diesem und dem vorherigen Beispiel sind 
einige der Vorteile von definierten Funktionen ableitbar: 

* Bei mehrfacher Verwendung einer bestimmten Gleichung erweisen sie 
sich als platzsparend. 

* Sie sind flexibel aufbaubar. 

* Sie erlauben einen iibersichtlichen Programmierstil. 
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* Man kann aus dem Namen leicht die Aufgabe, die die Funktion iiber- 
nimmt, ableiten. 

* Die im Definitionsbereich der Funktion verwendeten Variablen (wie 
z. B.: Nl$, N2$, VW$, RN$ im Beispielprogramm in Zeile 7) iiben 
keinen EinfluB auf gleichnamige Variablen im Programm aus. Wenn 
also irgendwo in Ihrem Programm die Variable A$ den Wert 12345 hat, 
andert sich dieser Wert nicht. Er ist unabhangig davon, wie oft Sie 
Funktionen aufrufen, in deren Definitionsteil sich ein A$ als abhangig e 
Variable befindet. 

* Funktionen konnen verschachtelt sein, d. h. eine Funktion kann i n 
ihrem Definitionsteil eine weitere aufrufen. 

Ein Argument fur die Anwendung von Funktionen ist es also, Formeln, 
die haufig in Programmen gebraucht werden, zusammenzufassen. 

Besonders interessant sind solche Aufgaben, die sich nicht einfach durch 
Eingabe einer BASIC- Anweisung losen lassen. Dazu gehort zum Beispi e i 
die Ermittlung der PRINT ©-Position, an der sich der Cursor gerade 
befindet. Die Funktion FNCUR, die Sie eben kennengelernt haben, l e i- 
stet dies. 



£8 DEFFH TESTCXX )=< XX=t 80 > ' ES SOU UHT 
ERSUCHT UERDEH, OB EI HE ZAHL , Z B Zl 
EH WERT 100 HAT 
3* IHPUT'GEBEH SIE EIHE ZAHL ZMISCHEH 99 

UHD 191 EIH ' ,ZX 
35 ' 



10 IF FHTESTt ZX >=8 THEN PRIHT'HERT <H88 

" ELSE PRIHT"HERT=180" 

READY 

> 

> 

>RUH 

GEBEH SIE EIHE ZAHL ZMISCHEH 99 UHD 181 

EIH ? 180 

UERT=100 

READY 



Abb. 3.6: Mit Hilfe einer Funktion wird eine Bedingung gepruft 
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Einmal definiert, arbeitet FNCUR wie alle anderen, „offiziellen" Funk- 
tionen im Microsoft-BASIC. Es reizt Sie nun sicherlich, weitere Funktio- 
nen dieser Art kennenzulernen, um die Leistungsfahigkeit Ihres Interpre- 
ters zu erweitern. Bevor wir allerdings detailliert auf dieses Thema einge- 
hen konnen, mochten wir Ihnen an einem Beispiel eine weitere Einsatz- 
form von Funktionen vorstellen (siehe Abb. 3.6). 

Geben Sie dieses Programm ein, und starten Sie es. Geben Sie abwech- 
selnd fur Z% Werte gleich oder ungleich 100 ein. Warum, meinen Sie, 
lauft dieses Programm? 

Lassen Sie uns Schritt fur Schritt die einzelnen Operationen des Rechners 
zuriickverfolgen. Das kann man am besten in der Kommandoebene: 

NEW <RETURN> 

Erster Schritt: 

X=(100=100):PRINTX <Return> 

-1 

READY 

> 

Zweiter Schritt: I ' 

IF (100=100)=-1 THEN PRINT"NATUERLICH 1ST 100 = 100" <Re- 

turn> ' 

NATUERLICH (ST 100 = 100 

READY 

> 

i i 

Vergleichen Sie beide Schritte. Was dem Menschen natiirlich erscheint, 
ist auch fur den Rechner eine Selbstverstandlichkeit. Der Unterschied ist 
nur, daB beide sich unterschiedlich ausdriicken. Wenn fiir das Colour- 
Genie bei einem Vergleich sich etwas als „wahr" erweist, „merkt" es sich 
eine —1. Stellt es bei einem Vergleich ein „Falsch" fest, „merkt" es sich 
eine 0. (Vergleichen Sie dazu auch das Kapitel „Operationen".) 

Beim ersten wie beim zweiten Schritt wurde, obwohl es durch die Art der 
Darstellung fiir Sie fremdartig aussehen mag, durch (100=100) der Rech- 
ner veranlafit, einen Vergleich durchzufuhren. Das Ergebnis dieses Ver- 
gleichs war, daB es sich um eine „logisch (durchaus) wahre" Aussage han- 
delte. I 

Der Unterschied zwischen den beiden Schritten besteht also einzig und 
allein darin, daB in Schritt 1 das Vergleichsergebnis —1 einer Variablen, 
namlich X zugewiesen wird, wahrend der Rechner in Schritt 2 anhand des 
Ergebnisses sich „entscheidet", einen Text auszugeben. 
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1st Ihnen das Prinzip klar geworden? Trifft der Rechner auf ein 

X= (1 00= 1 00) Oder X= (1 00>1 00) oder allgemein X= <A>B) 

so faBt er dies als eine Aufforderung auf, den Ausdruck in Klammern auf 
seine Wahheit hin zu priifen. Eine solche „ Aufforderung" kann auch 
Bestandteil einer definierten Funktion sein. Dies konnen Sie leicht auf die 
o. a. Beispieleanwenden,indemSieZeile 20unseresBeispielprogramms 
wie folgt abandern: 

20DEFFNTEST(X%)={X%> = 100) .■ ; 

und den ausgegebenen Text in Zeile 40 entsprechend der gepriiften 
Bedingung anpassen: 

40 IF FNTEST (Z%)=0 THEN PRINT"ZAHL<100" ELSE PRINTZAHL 
>- 100" 

Wenn Sie sicher sind, daB Sie diese Grundlagen verstanden haben, kon- 
nen wir uns dem nachsten Kapitel zuwenden, wo Sie Anwendungsbei- 
spiele fur eigene Funktionen finden und sehen, wie Sie diese aufbauen 
und wo Sie sie einsetzen konnen. 



3.6 EIGENE FUNKTIONEN 

Dieses Kapitel ist etwas schwieriger als die vorherigen, zumal weder im 
Colour-BASIC-Handbuch noch in der Disk-BASIC-Anleitung beson- 
ders viel dariiber aufgefuhrt ist. 

Daher vorweg eine kurze Beschreibung, wie Sie Funktionen im Micro- 
soft-BASIC definieren und diese aufrufen: 

Das Schliisselwort, durch das der Rechner erkennt: Hier wird eine Funk- 
tion definiert, lautet DEFFN. Jede Funktion hat einen Namen, der min- 
destens zwei Zeichen lang sein mufi , wie z. B . : AA$ , AAA$ (wenn es sich 
um eine Zeichenkettenfunktion handelt) oder Al , AA (wenn es sich um 
eine numerische Funktion handelt). Wenn der Funktion bei ihrem Aufruf 
keine variablen Werte iibergeben werden sollen (s. a. Kapitel funktio- 
nen"), folgt das Gleichheitszeichen und die Funktion, wie z. B.: 

10 DEFFN BS$=CHR$(PEEK(&H4400)) 
RUN 

die immer, wenn Sie 

! 

PRINT FNBS$ 

eingeben, das Zeichen ausgibt, das sich in der linken oberen Ecke auf dem 
Bildschirm befindet. 
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Genie-BASIC solche Zahlenkonvertierungen, wie z. B. die Umwand- 
lung einer Hexadezimalzahl in eine Dezimalzahl: 

PRINT &H4400 <RETURN> 

17408 

READY 

> 

Den umgekehrten Weg, dezimal in hex, unterstutzt das Microsoft-B ASIC 
des Colour-Genie allerdings nicht. Grund genug, diesen Mangel durch 
ein kurzes Programm zu beheben: 



10 ' DAS FOLQENDE PROGRAMM DEFINIERT DIEFUNKTIO 
NEN FN HX*<XX> UND FN HEX*CX%) ALS KQNVERT 
IERUNGSFUNKTIONEN EINER DEZI-MALZAHL IN EINE 
HEXADEZIMALZAHL 

20 CLEAR 1000 

30 #*# ANFANG DES DEFINITIONSTEILS «**» 

40 H0*-"01234367B9ABCDEF" 

50 DEFFN HX*(X%)=MID*(H0*,INT<XX/16>+1,1) + MID 
*<H0* f XX-INT(Xy./16)*16+l,l): 'FUER ZAHLEN VON 
BIS 2S5 

60 DEFFN HEX* (X%)=FN HX*( INK X7./2S6) > -t-FNHX*(X% 
AND 255> : ' FLIER ZAHLEN VON BIS 32767 

70 '*** ENDE DES DEFINITIONSTEILS #**#* 

80 INPUT-WIE LAUTET DIE DEZIMALZAHL J " I XX 

90 PRINT-DIE DEZIMALZAHL ";Xy.;" ENTSPRICHT HEXA 
DEZIMAL "t 

100 IF X%>255 THEN PRINTFN HEX* CXX> iGDTQBO 

110 PRINTFN HX*(X%) s GOTO00 



Abb. 3. 7: Konvertierungsfunktionen (dezimal in hex) 



Es gibt viele Aufgaben, die sich effizienter losen lassen, wenn man 
von vornherein mit Hexadezimalzahlen rechnet. AuBerdem ist die 
FNHEX$(x)-Funktion recht nutzlich, wenn Sei die vielen in Ihrem 
B ASIC-Handbuch aufgefuhrten Dezimaladressen im Speicherbelegungs- 
plan auf Seite 124 einordnen wollen. Wenn Sie dieses Programm starten, 
bekommen Sie ungefahr folgende Bildschirmausgabe: 
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Abb. 3.8: BildschirmausgabezwnProgramminAbb. 3.7 



Schauen Sie sich das Programm genau an, und Sie werden feststellen, da8 
dort zwei Funktionen definiert wurden. Die eine, FN HX$(X%), wird in 
Zeile 110 immer dann aufgerufen, wenn die eingegebene Dezimalzahl 
kleiner als 256 ist. Dies ist keineswegs unbedingt notwendig, denn auch 
bei Zahlenwerten, die kleiner sind als 256, besitzt die zweite definierte 
Funktion, FN HEX$(X%), ihre Giiltigkeit. Vielmehr sehen Sie hier das 
erstemal ineinander verschachtelte Funktionen, denn im Definitionsteil 
von HEX$(...) wird FN HX$(...) aufgerufen. Um sich die prizipielle 
Arbeitsweise dieser Funktion zu verdeutlichen, schlagen Sie am besten 
Kapitel 31 auf Seite 104 Ihres Handbuchs auf. Dort finden Sie ein Pro- 
gramm, das 17 Zeilen benotigt, um weitaus unkomfortabler die Dezimal- 
Hex-Konvertierung vorzunehmen. Hier sieht man sehr schon, wie effi- 
zient, kurz und elegant sich Funktionen einsetzen lassen. 



3.6.1 Auslesen eines frei definierten Zeichens 

Eine weitere Form der Konvertierung, die beim Umgang mit Rechnern 
friiher oder spater wiinschenswert ist, ist die Konvertierung von Dezimal 
in Dual. Ein Beispiel dafur sind die in Ihrem Rechner frei programmier- 
baren 128 Zeichen. Was nutzt es Ihnen, wenn Sie zum Beispiel beim Aus- 



s 
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lesen des dafiir zustandigen Speicherbereichs folgende Werte geliefert 
bekommen: 

100 REM AUSLESEN DES SPEICHERS FUR DAS ERSTE FREI 

PROGRAMMIERBARE ZEICHEN AB SPEICHERADRESSE 
HF400 

1 1 FOR X=&HF400 TO &HF407 

160 PRINT PEEK(X) 

170 NEXTX 

Wenn Sie das Beispiel im Colour-Genie-Handbuch auf Seite 1 10 eingege- 
ben haben, bekommen Sie folgende Bildschirmausgabe: 

146 

40 

68 

68 

124 

68 



READY 

> 



Dadurch wissen Sie allerdings noch lange nicht, wie das definierte Zei- 
chen aussieht. Wir definieren also eine entsprechende Funktion, die wir 
in das oben aufgefuhrte Programm einbauen: 



10 'FUNKTION ZUM FESTSTELLEN GESETZTER 

BZW. NICHT BESET ZTER BITS EINER ZAHL 

20 '*** ANFANG DES DEFINITIONSTEILS#*## 

30 DEFFN BIT<ZX t X-/)=SGN(ABS(PEEK(ZX) AND <2CXX) 
)) 

40 '*** ENDE DES DEFINITIONSTEILS »*♦*«* 

50 GOTO 100 : 'UEBERSPRINGEN DES UNTER- 

PROGRAMMS 

60 FOR T'/.*7 TO STEP -1 

70 PRINT FNBIT<X,TX)(" "; 

80 NEXT TX 

90 RETURN 

100 X=«tHF400s BOSUB 60 t'BESTIMMEN UND 

AUSGEBEN DER 
GESETZTEN BITS 



Abb. 3. 9: Welche Bits sind gesetzt? 
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Wird die Funktion in Zeile 30 (DEFFN BIT(Z%,X%)) aufgerufen, so 
mussen fur Z% der zu untersuchende Zahlenwert und fur X% das zu 
testende Bit iibergeben werden. Das Unterprogramm ab Zeile 60 testet 
uber eine Schleife alle 8 Bits der untersuchten Zahl. 1st das Bit gesetzt, 
wird eine 1 ausgegeben, bei zuriickgesetztem Bit eine 0. Alle Einsen ent- 
sprechen dunklen Bildpunkten, alle Nullen hellen. 

Nun ist es leicht, sich alle definierten oder z. B. das 80. Zeichen auf dem 
Bildschirm im GroBformat ausgeben zu lassen. Schauen Sie zuvor noch 
einmal in Ihr BASIC-Handbuch auf Seite 110. 

Dort konnen Sie feststellen, daft jedes frei definierbare Zeichen ein festes 
Raster, eine sog. Matrix besitzt, durch die es in Lange und Breite begrenzt 
wird. Das erste Zeichen ist ab Adresse &HF400, das zweite ab &HF408 
etc. abgelegt. Wenn Sie also das n-te Zeichen ausgegeben haben wollen, 
lafit sich die dazugehorige Adresse leicht berechnen: 

Adresse = (n-l)*8 + &HF400 

Eine entsprechende Funktion lautet also 

35 DEFFN ADR(N%)=(N%-1) * 8 +&HF400 

und eine dazugehorende INPUT- Anweisung: 



10 FUNKTION ZUM FESTSTELLEN BESETZTER 

BZM. NICHT GESETZTER BITS EINER ZAHL 
20 '#** ANFANG DES DEFINITIONSTEILS**** 
30 DEFFN BIT(Zy.,X7.)=SGN(ABS<PEEK(ZX) AND (2CX'/.> 

) > 
35 DEFFN ADR ( NX > - ( NX- 1 ) *B+&HF400 
40 '*** ENDE DES DEFINITIONSTEILS ****** 
50 GOTO 100 : UEBERSPRINGEN DES UNTER- 

PROGRAMMS 
60 FOR Ty.-7 TO STEP -1 
70 PRINT FNBITIX,T%);" "| 
B0 NEXT TV. 
90 RETURN 
100 

110 INPUT"DAS WIEV1ELTE FREI DEFINIERBARE ZEICHE 
N ";NX 

111 IF NX>12B THEN PRINT"ES GIBT NUR 12B SOLCHER 

ZEICHEN": GOTO 110 

112 FOR X=FN ADR(NX> TO FN ADR<N%)+7 

113 GOSUB 60t PRINTS PRINT 

114 NEXTX 



Abb. 3.10: Auslesen eines Zeichens 
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Schon konnen Sie sich alle definierten Zeichen auf demBildschirm ausge- 
ben lassen. In Abb. 3.11 finden Sie eine entsprechende Bildschirmaus- 
gabe. 




Abb. 3.11: Bildschirmausgabe zumProgramminAbb. 3 JO 



Von Konvertierungsroutinen kommen wir nun zu einer etwas interessan- 
teren Form von definierten Funktionen. 

Sicher kennen Sie das Problem, daB Sie mit einem Bekannten am Telefon 
einen Termin ausmachen wollen, der irgendwann auf die nachsten zwei 
oder drei Wochen datiert ist. 

Die obligatorische Frage , die dann meist am einen oder anderen Ende der 
Leitung gestellt wird, lautet: „Was fur ein Wochentag ist das?" oder „Wie 
viele Tage sind es noch bis dahin?" 

In der Regel beginnt dann die erfolglose Suche nach einem Kalender oder 
kompliziertes Kopfrechnen, so da6 Sie die Moglichkeit, ein solches Pro- 
blem vom Rechner losen zu lassen, sicher mit erheblichem Arbeitsauf- 
wand und einem langen Programm in Verbindung bringen. Dies ist kei- 
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50 DEF FN DACTT, MM, JJ>=NQT ( <TT<1) OR <TT>31) 

OR (MM<1) OR (MM>12) OR < (TT>30> AND ( (MM*2 
) OR (MM»4) OR <MM»6> OR <MM=9> OR CMM=11>>> 
OR (CTT>29> AND <MM=2) ) OR < (TT=29) AND ( (M 
M=2) AND (<JJ/4)<> INKJJ/4) ) ) )) 



80 DEF FN WT(TT, MM, JJ)«JJ*365+INT ( (JJ-1 ) /4> + ( 

MM-l>#2a+VAL (MID* ("008303186081 1131619212426" 
,(MM-1)*2+1, 2>>-((MM>2>AND( CJJ AND NOT -4>= 
0>)+TT 



Abb. 3.12: Funktion zur Ermittlung eines Zeitraums 



nesfalls so. Es gibt eine Funktion, die die ganze Problematik von Schalt- 
jahren, Monaten mit 31, 30 und 28 Tagen von 1901 bis 2099 erfaBt hat. In 
ahnlicher Form findet diese Funktion in Digitaluhren Anwendung. Wenn 
Sie das Programm mit dieser Funktion starten und anschlieBend 

PRINT FN WT(1 7,1 2,1 983) 

eingeben, ermittelt diese Funktion die Anzahl der Tage seit dem 
1.1.0000: 

724641 

READY 

> 

Daraus laBt sich eine Menge ableiten: die noch verbleibenden Tage bis 
Weihnachten (das ist die Differenz zwischen zwei Terminen, namlich dem 
24. 12. und einem weiteren Datum) oder, mit Hilfe einer weiteren Funk- 
tion, der Wochentag eines beliebigen Datums: 

20 DEFFN T$(Z!)=MID$("FrSaSoMoDiMiDo", 
(Z!-INT(Z!/7)*7)*2+1,2) 

Nun wird der Rechner, wenn Sie wissen wollen, welcher Wochentag der 
31. 10. 1983 war und 

PRINT FN T$(FNWT(31, 10,1983)) 

eingeben 

Mo 

READY 

> 
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ausgeben. Wie Sie diese Funktion in eigenen Programmen anwenden 
konnen, sollen die Beispiele in Abb. 3.13 bis Abb. 3.16 verdeutlichen. 



10 CLEAR 2000 

20 'Anwendungsbeispiel : 

Arbeiten mit Funktionen 

30 'DAS LEBENSALTER IN TAGEN 

40 

50 DEF FN DA(TT, MM, JJ) »NOT ( <TT< 1 ) OR <TT>31> 
OR (MM<1) OR <MM>12> OR C <TT>30> AND < CMM=>2 
) DR <MM=4) OR (MM=6) OR CMM=9> OR CMM=11>>) 
OR <<TT>29) AND (MM=2) > OR < (TT-29) AND ( <M 
M=2) AND <<JJ/4)<> INT<JJ/4>>))) 

60 -1 bedeutet: Es gibt ein solches Datum 

70 ' bedeutet: Das Datum gibt es nicht 

80 DEF FN WT(TT, MM, JJ) -JJ#365+INT ( ( JJ-1 > /4) + C 
MM- 1 ) *28+VAL ( M I D* ( " 0003030608 1113161 92 1 2426 " 
, (MM-1>»2+1, 2))-((MM>2>AND(<JJ AND NOT -4)= 
0))+TT 

90 'Anzahl Tage seit 1.1.0000 

91 DEF FNT*<Z!)=MID*<"FrSaSoMaDiMiDo", <Z'-INT<Z 
!/7>*7>#2+l,2) 

92 'Wochentag 

110 INPUT"Bitte Eingabe 

des Tagesdatums<TTMMJJJJ> :";T* 
120 IF LEN(T*)<>8 THEN 110 
130 60SUB 150 
140 GOTO 210 

150 'Er mitt lung von Tag,Monat , Jahr 
160 TT=VAL(LEFT*<T*, 2> ) 
170 MM=VALCMID*<T*, 3, 2) > 
180 JJ=VAL(RIGHT*<T*, 4> ) 
200 RETURN 
210 IF FN DA<TT, MM, JJ)=0 THEN PRINT"Ein solche 

s Datum gibt es nicht. ":FORT=1TO1000:NEXTT:R 

UN 
220 HEUTE=FN WT<TT, MM, JJ) 
230 INPUT"Bitte das Geburts- 

datum(TTMMJJ) i";T* 
240 GOSUB 150 
245 IF FN DA(TT, MM, JJ>=0 THEN PR I NT "Ein solche 

s Datum gibt es nicht. "sFORT=l TOl 000: NEXTT:R 

UN 
250 GEBURT=FNWT<TT,MM,JJ> 
260 ALTER=HEUTE-GEBURT 
270 IF (ALTER/365) >90 THEN PRINT"Nun kommen Sie! 

Das nimmt Ihnen kei ner ab. " 
280 PRINT"Sie sind "j ALTER;" Tage alt." 



Abb. 3.13: Programm zttr Berechnung des Lebensalters 
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Abb. 3.14: BildschirmausgabezumProgramminAbb. 3.13 



10 

20 

30 

40 
50 



60 

70 



90 
91 

92 

100 

110 

120 



CLEAR 2000 

' Anwendungsbei spiel : Arbeiten mit Funktionen 



Ermittlung des Tagesdat 



urns 



DEF FN DACTT, MM, J J) -NOT ( (TT< 1 ) OR <TT>31) 
OR (MM<1) OR (MM>12) OR ( (TT>30> AND < (MM=2 
) OR (MM=4) OR (MM=6> OR <MM=9> OR (MM-11M) 

OR (<TT>29) AND (MM»2) ) OR ( CTT=29) AND C (M 
M=2) AND (<JJ/4)<> INT(JJ/4>) > > > 

-1 bedeutet: Es gibt ein solches Datum 
' bedeutet: Das Datum gibt es nicht 
DEF FN WT(TT, MM, JJ>=JJ#365+INT C (JJ-1 > /4>+ ( 
MM-1 ) *28+VAL (MID* ("00030306081 1 131619212426" 
, (MM-1)*2+1, 2))-<(MM>2)AND((JJ AND NOT -4>= 
0M+TT 

'Anzahl Tage seit 1.1.0000 

DEF FNT*(Z! >=MID* < "FrSaSoMoDiMiDo" , <Z!-INT(Z 
!/7)#7>*2+l,2) 
' Wochentag 
CLS 

INPUT "Bitte Eingabe des Tagesdatums(TTMMJJJJ 
) s"jT* 
IF LEN(T*><>8 THEN 110 



Abb. 3.15: Programm zur Ermittlung des Wochentags 
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130 
140 
150 
160 
170 
1B0 
200 
210 



220 
230 
240 



BOSUB 150 

GOTO 210 

'Ermittlung von Tag ,Monat , Jahr 

TT=VAL<LEFT*(T*, 2)) 

MM»VAL<MID*(T#, 3, 2> ) 

JJ»VAL<RI6HT*<T*, 4> ) 

RETURN 

IF FN DA(TT, MM, JJ>=0 THEN PRINT"Ein solche 

9 Datum gibt es nicht."s FORT=1TO1000»NEXTT: 

RUN 

HEUTE=FN WTtTT, MM, JJ) 

T*-FNT*<HEUTE) 

PRINT"Heute haban wir ";T*;» ,den";TT; ". ";MM 

i " . " | J J 



Abb. 3.15: Programm zur Ermittlung des Wochentags (Fortsetzung) 



Bitte EinSabe des Ta3esdatu»s< TTMHJ JJ-i > 

? 28811984 
Heute haben yir Sa , den E8 * 1981 
READY 
>i 







Abb. 3.16: Bildschirmausgabe zum Programm in Abb. 3.15 



Zu diesem Zeitpunkt ist allerdings noch nicht gewahrleistet, daG, wenn 
Sie das Programm in Abb. 3.11 starten, auch ein Datum eingegeben wird, 
das existiert. Ihr Colour-Genie berechnet den 31.2.1811 genauso wie den 
66.1.1999 -nurfalsch. 
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Bevor Sie diese Problematik in Form einer Funktion erfassen und so der- 
art unsinnige Eingaben verhindern konnen, mtissen Sie sich erst einmal 
Gedanken dariiber machen , wann ein Datum zulassig ist und wann nicht . 

Zuerst einmal ist ein Datum unsinnig, wenn der Wert TT fur den Tag klei- 
ner als 1 oder groBer als 31 ist: 

(TT < 1) OR (TT > 31) 

Das gleiche gilt fiir den Monat MM, wenn hier Werte kleiner als 1 oder 
groBer als 12 auftauchen: 

(MM < 1) OR (MM > 12) 

Weiterhin haben der April, Juni, September etc. nur jeweils 30 Tage. 
Dies kann folgendermaBen erfaBt werden. Das Datum gibt es nicht, wenn 
der Tag TT grofier ist als 30 und gleichzeitig der Monat MM = 2 oder 4 
oder 6 oder 9 oder 11 , also 

((TT> 30) AND ((MM=2) OR (MM =4) OR (MM=6) OR (MM =9) OR 
(MM=11)) 

Nun folgt noch der verflixte Februar, der Monat MM=2. Hier liegt immer 
dann ein Schaltjahr mit 29 Tagen vor, wenn die Jahreszahl JJ ohne Rest 
durch 4 teilbar ist. Ist dies nicht der Fall, dann ist 

(JJ/4) ungleich INT(JJ/4) 

das Datum also als unzulassig anzusehen, wenn 

a) (TT>29) AND (MM=2) 

b) ((TT=29) AND ((MM=2) AND ((JJ/4) <> INT(JJ/4)))) 

All diese Bedingungen, miteinander verkniipft, ergeben die gesuchte 
Funktion 

50 DEF FN DA(TT,MM,JJ) = NOT((TT<1 ) OR (TT>31 ) OR (MM<1 ) OR 
(MM>12) OR ((TT>30) AND ((MM=2) OR (MM=4) OR (MM=6) OR 
(MM=9) OR (MM=11))) OR ((TT>29) AND (MM=2)) OR ((TT=29) 
AND ((MM=2) AND {(JJ/4)<>INT(JJ/4))))) 

Diese Funktion finden Sie in den Beispielen Abb. 3.11 bis 3.14. Sie ist 
eine komplizierte Variation dessen, was Ihnen unter Kapitel „Eigene 
Funktionen" als Funktion zur Priifung logischer Bedingungen vorgestellt 
wurde. Aus dem Ergebnis, oder ungleich 0, kann hier direkt abgelesen 
werden, ob ein untersuchtes Datum existiert oder nicht: 

IF (FN DA{TT,MM,JJ)) THEN GOTO ....: 'EINGABEFEHLER 

Lassen Sie sich durch die kompliziert erscheinenden Definitionsteile der 
Funktionen nicht irritieren. Definieren Sie sie irgendwo am Anfang Ihres 
Programms, und verwenden Sie diese Funktionen genauso wie andere, 
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die Ihnen im Microsoft-BASIC zur Verfugung stehen, sei es MID, ATN 
oder SQR, iiber deren komplizierte Abarbeitungsphasen im Interpreter 
Sie sich bestimmt auch nicht sonderlich viele Gedanken machen. Eine 
definierte Funktion solcher Komplexitat wie FN WT oder FN DA soil als 
Hilfsmittel, als Mittel zum Zweck auf dem Weg des Programmierens die- 
nen. Es reicht, wenn Sie diesem Kapitel die Anregung entnehmen, dafi es 
da im BASIC etwas gibt, was DEF FN heifit, womit sie experimentieren 
und vielleicht interessante Effekte in eigenen Programmen erzielen kon- 
nen. In diesem Sinne sollen auch die in diesem Kapitel vorgestellten 
Funktionen und Demoprogramme zu sehen sein: Als Ergebnisse des 
Experimentierens . 
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Kapitel^r 

Eine generelle Eingabe- 
routine zur Textverarbeitung 

Die Fahigkeit zur Verarbeitung von Zeichenketten ist eine wesentliche 
Ursache fur die Leistungsfahigkeit von Mikrocomputern. Rechner der 
fruheren Generation, die mit Programmiersprachen wie ALGOL arbei- 
teten, verfiigten nur eingeschrankt uber entsprechende Algorithmen und 
engten daher ihre Einsatzmoglickeit selbst erheblich ein. 

Obwohl mit heutigen Rechnern wie dem Colour-Genie derartige Pro- 
bleme der Vergangenheit angehoren, heiBt dies noch lange nicht, daft das 
„allwissende Universalgenie" Rechner all Ihre Eingaben registrieren 
oder auf Fragen Patentlosungen anbieten kann. 

Versuchen Sie doch einfach einmal, Ihrem Colour-Genie den Spielstand 
des FuGballspiels „Arminia Bielefeld gegen Bayern Munchen" zu vermit- 
teln: 




dW t*tm> WIRB*r»*--«S5-Sf**s*,si?,S»S&Jt!'t..*"-'i *• "IMS' 



18 IHPUT'VIE UAR DER SPIELSTAND hRNINIh 
BIELEFELD CECEH BAYERN NUEHCHEH E . ft$ 
READY 

> 

>RUH 

HIE HAR DER SPIELSTftHB ARHIHIA 

BIELEFELD CECEH BAYERH NUEHCHEH ? 4 2 

rExtra ignored 

READY 



M$$e&®!£$k 




Abb. 4.1: Eingabeprobleme bei der INPUT-Anweisung 
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Beantworten Sie diese Frage mit einer beliebigen Eingabe wie 4:2 oder 
1:3, und beachten Sie das Ergebnis. Eine entsprechende Bildschirm- 
ausgabe finden Sie in Abbildung 4.1. 

Da kaum zu erwarten ist, daB Ihr Colour-Genie gegen den einen oder 
anderen Verein eine spezielle Antipathie hegt und aus diesem Grunde 
durch ein „?Extra ignored" lauthals seinen Protest gegen die Eingabe 
kundtut, scheint es Zeichen zu geben, die auch beim Einlesen einer Zei- 
chenkette nicht vorbehaltlos ubernommen werden. Dies bestatigt auch 
das Colour-Genie-Handbuch auf Seite 29: 

„Ein nach einer INPUT-Aufforderung eingegebener Doppelpunkt 
bewirkt in jedem Fall, daB alles, was danach kommt, nicht ubernommen 
wird." 

Das Problem, einer Zeichenkettenvariablen auch solche Zeichen wie , ; : 
in einer Eingabe zuzuweisen, laBt sich nicht allein durch die INPUT- 
Anweisung losen. (Es gibt zwar eine LINE INPUT- Anweisung, bei der 
dieses Problem nicht auftritt. Sie ist jedoch nur unter Colour-Disk- 
BASIC verfiigbar.) 

Eine Alternative findet sich in der INKEY$-Funktion, die auf Seite 96 
Ihres Handbuchs beschrieben ist. Immer, wenn das Colour-Genie auf ein 
INKEY$ trifft, fragt es fur Sekundenbruchteile die Tastatur ab, ob dort 
eine Taste betatigt wurde: 

10Y$=INKEY$ 

Ist dies der Fall, wird der Variablen Y$ eine Zeichenkette mit der Lange 1 
zugewiesen, die dem ASCII-Zeichen der betatigten Taste entspricht. 
Wurde zum Zeitpunkt der Abfrage keine Taste betatigt, erhalt die Varia- 
ble Y$ keine Information. Man sagt, Y$ enthalt eine leere Zeichenkette, 
was nichts anderes bedeutet als 

Y$ = "" 

Urn nun sicherzugehen, daB ein Zeichen von der Tastatur eingelesen 
wird, muB so lange eine Schleife durchlaufen werden, bis der Rechner 
eine Betatigung der Tastatur registriert hat. Dies ist genau dann der Fall, 
wenn die Variable Y$ eine Information enthalt: 

20 IF Y$="" THEN GOTO 10 

30 REM VERARBEITUNG DER INFORMATION IN Y$ 

In Zeile 30 beginnt nun eine Verarbeitung der eingelesenen Information, 
d. h. des eingelesenen Zeichens. Zuerst wird dieses auf dem Bildschirm 
ausgegeben 

40 PRINT Y$; 
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una dann als zuletzt eingegebenes Zeichen an das Ende einer Zeichen- 
kette gehangt zu werden, die alle schon bisher eingegebenen Zeichen 
erfaBt hat: 

50 IN$ = IN$ + Y$ 
60 GOTO 10 

Verdeutlichen Sie sich dies noch einmal an folgendem Ablaufplan: 









^ 




1 






Abfragen 
der Tastatur 


! 


tj . netn 


^^Zeicheneingabe^V 
^^ ? _^^ 


P 


Erganzen der Zeichen- 
kette, in der alle bis- 
her eingegebenen Zei- 
chen erfaBt sind, urn 
das neue Zeichen. 
Ausgabe des Zeichens 
auf dem Bildschirm 















Abb. 4.2: Ablaufplan einer Tastaturabfrage 



Versuchen Sie nun anhand dieses Ablaufplans Vorteile und Schwachstel- 
len dieses Systems zu erkennen: 



Vorteile 

* Es werden alle Zeichen, die von der Tastatur eingegeben werden, bear- 
beitet und einer Zeichenkette zugewiesen. 

* Die Ubergabe eines eingegebenen Zeichens an die Variable erfolgt 
sofort nach Betatigung einer Taste, nicht, wie bei der INPUT- Anwei- 
sung, erst nach Driicken der RETURN-Taste. 
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* Die Lange der fur die Eingabe zulassigen Zeichen kann begrenzt wer- 
den (z. B. durch IF LEN(IN$)=5 THEN GOTO XXX). 

* Bestimmte Zeichen konnen als unzulassig deklariert werden (z. B. IF 
Y$="0" THEN GOTO 10). 



Nachteile 

* Es ist kein Cursor auf dem Bildschirm zu sehen. 

* Es fehlt eine Programmzeile, in der dem Rechner mitgeteilt wird, daB 
bei Eingabe eines bestimmten Zeichens (z. B. RETURN) der Einlese- 
vorgang beendet ist. 

* Auch Steuerzeichen, wie z. B. der Linkspfeil, werden an die Zeichen- 
kette ubergeben. 

Wir wollen nun Schritt fur Schritt anhand des Ablaufplans die Nachteile 
einer INKEY$-Eingaberoutine beheben und ein paar der Vorziige ein- 
bauen. 

Als erster Nachteil erwies sich, daJ3 kein Cursor auf dem Bildschirm zu 
sehen war. Dafiir gibt es ein Steuerzeichen, das Sie auf Seite 145 Ihres 
Handbuchs finden. Es heiBt „Cursor ein" und hat den ASCII-Code 14. 
Geben Sie NEW ein, und testen Sie anhand des Programms in Abb. 4.4, 
wie Sie mit Hilfe einer PRINT- Anweisung einen blinkenden Cursor auf 
dem Bildschirm erzeugen: 

10CLS 

20PRINTCHR$(14); 
30 GOTO 30 

Was nun fehlt, ist eine Tastaturabfrage. Dafiir eignet sich Programm- 
zeile 30: 

30 Y$=INKEY$ :IFY$o""THEN GOTO 100 
Der nachste Schritt ist nun, eine Programmzeile 100 zu erstellen. 

1 00 REM ZU DIESER ZEILE WIRD VERZWEIGT, WENN EIN 

ZEICHEN AUF DER TASTATUR EINGEGEBEN WURDE. 

Hinter der Zeile 100 erfolgt nun die Bearbeitung des eingegebenen Zei- 
chens. Nachteil 1 bei der Verwendung von INKEY$-Routinen, ein feh- 
lender Cursor, ist an dieser Stelle schon behoben. 

Der nachste Nachteil in der Liste ist der, daB der Rechner bei Verwen- 
dung einer INKEY$-Routine von sich aus nicht in der Lage ist, zu erken- 
nen, wann eine Eingabe abgeschlossen ist. 

Eine Eingabe soil in der Regel dann zu Ende sein, wenn 
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a) die RETURN-Taste betatigt wird oder 

b) die Lange der Eingabe auf eine bestimmte Anzahl von Zeichen 
begrenzt ist und diese bereits eingegeben wurden. 

Wenn Sie also in einem Programm z. B. die Eingabe einer Postleitzahl 
wiinschen, so ist diese als erfolgt zu betrachten, wenn Sie 4 Ziffern einge- 
geben haben, da es in Deutschland keine 5- oder 6-stelligen Postleitzahlen 
gibt. Genauso miissen Sie aber auch die Moglichkeit schaffen, die Ein- 
gabe audi schon friiher beenden zu konnen, da die Eingabe einer 8 fiir 
Miinchen oder 43 fiir Essen als Postleitzahl vollkommen ausreichend ist. 

Um dies zu bewerkstelligen, miissen Sie das Programm mit einem Zei- 
chenzahler ZZ versehen, der jedesmal, wenn der Variablen Y$ in der 
INKEY$-Routine ein Wert iibergeben wurde, aktualisiert wird. 

Dieses „Aktualisieren" mu6 so aussehen, dafi der Zahler jeweils um 1 
erhoht wird, wenn es sich im Sinne der Eingabe um ein zulassiges Zeichen 
handelt, d. h. wenn Buchstaben, Zahlen oder Sonderzeichen eingegeben 
werden. Bei Eingabe von Steuer- bzw. Korrekturzeichen, wie z. B. dem 
Pfeil nach links (Backspace, letztes Zeichen loschen), mu6 der Zahler 
entsprechend vermindert werden. Im ersteren Falle wird das Zeichen in 
Y$ jeweils an die Zeichenkette, in der alle bisher eingegebenen Zeichen 
erfaBt sind, angehangt: 

IN$ = IN$ + Y$ 

Im letzten Falle (Korrektur) muB das letzte Zeichen aus der Zeichenkette 
IN entfernt werden: 

IN$ = LEFT$(IN$,LEN(IN$)-1) 

Durch die LEFT$- Anweisung wird, wie Sie Ihrem Handbuch auf Seite 90 
entnehmen konnen, eine Zeichenkette wie IN$ „rechts abgeschnitten". 

Nehmen wir an, IN enthielte vor Aufruf der LEFTS -Funktion die Zei- 
chenkette "12345". Das sind 5 Zeichen. Somit ist LEN(IN$)=5. Nun 
wird in der o. a. Anweisung der Variablen IN$ eine Zeichenkette zuge- 
wiesen, die LEN(IN$)— 1 Zeichen lang sein soil. Wenn z. B. 

IN$= "12345" ist und 

LEFT$(IN$,LEN(IN$)-1) (LEN(IN$)-1 entspricht 5-1 = 4) 

erzeugt werden soil, erhalt man als Ergebnis die ersten 4 Zeichen aus 
IN$, also "1234". Durch 

IN$ =LEFT$(IN$ ,LEN(IN$) - 1) 

wird also aus dieser Zeichenkette jeweils das letzte Zeichen entfernt. Dies 
wollen wir nun in unerem Ablaufdiagramm in Abb. 4.3 beriicksichtigen: 

Ubergeben wird die maximale Wortlange WL = n Zeichen. 
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1. Anfangswerte setzen 
(5010) 



^ StartJ 

Z3Z_ 



zz = o 

INS = "" 



I 



PRINT 
CHR$ (14); 



rO 



2. Tastaturabfrage 
(5020) 



3. Weiterverarbeitung 
(5030ff.) 



3.1 Korrekturzeichen 
(5040) 



3.2 unzulassiges 
Zeichen 
(5070) 



I 



Y$ = INKEY$ 



JA 



O 



4. BS-Ausgabe (5080) 

5. Zeichenkettenerganzung 
(5090) 

6. Zeichenzahler 
up date 
(5100) 



7. Verlassen d. Routine 
(5200) 



(...) = Zeilennummer 




NEIN 

| PRINT Y$; | 

i 

I INS = IN$+Y$ I 

r 

l ZZ = ZZ -M 



NEIN 




^V. ? jr 




^ 


INS = LEFTS 
(IN$,LEN(IN$)-1) 




♦ 






ZZ = ZZ-1 




* 




PRINT Y$; 





Abb. 4.3: Ablaufdiagramm einer Tastaturabfrageroutine 
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5000 'TASTATUREINGABEROUTINE *****##*#** 

5010 ZZ=0j IN*=""iPRINTCHR*<14> ; 

5020 Y*= I NKEY* : I FY*= " " THEN5020 

5030 IFY*=CHR*(13)THEN 5200 

5040 IFY*< >CHR* (8) THEN5070 

5050 IFZZ>0THEN IN*=LEFT* ( IN*,LEN< IN*) -1 > : ZZ»ZZ-1 

:PRINTY*j 

5060 GOTO 5020 

5070 IF Y*<" " OR Y*>"z" THEN 5020 

5080 PRINTY*j 

5090 IN*=IN*+Y* 

5100 ZZ=-ZZ + 1 

5110 IF ZZ=WL THEN 5200 

5120 GOTO 5020 

5200 RETURN 

5210 '♦#»##«*#***#**##**#**»*#*#»##»**-*# 



Abb. 4.4: Das dazugehorige Programm 

Urn diese Anweisungsfolge mehrmals in einem Programm verwenden zu 
konnen, empfiehlt es sich, sie in ein Unterprogramm zu fassen. Immer, 
wenn eine Eingabe erfolgen soil, wird durch ein 

GOSUB 5000 

zu der Unterroutine verzweigt. Ubergeben wird iiber die Variable WL die 
Anzahl der maximal fur die Eingabe zulassigen Zeichen. Wie Sie dem 
Beispiel in Abb. 4.5 entnehmen konnen, sind dies 4 Zeichen fur die Post- 
leitzahl. Wenn Sie nun versuchen, eine 5-stellige Postleitzahl einzugeben, 
„streikt" der Rechner. Angenehmerweise tut er dies jedoch, ohne eine 
Fehlermeldung auszugeben: Der Rechner nimmt weitere Zeichen einfach 
nicht an. 

Es ist uns also gelungen, eine Eingabe auf eine bestimmte Lange zu 
begrenzen und die Eingabe „unerwunschter Zeichen", wie Pfeil hoch, 
Pfeil rechts etc. durch Programmzeile 5070 der Routine zu unterbinden: 

5070 IF Y$<" " OR Y$>"z" THEN 5020 

Schauen Sie in der ASCII-Tabelle auf Seite 145 Ihres Handbuchs nach, 
und iiberpriifen Sie, welche Zeichen hier bei der Eingabe vom Rechner 
ignoriert werden. Es sind — vielleicht unabsichtlich auf der Tastatur beta- 
tigte — Steuerzeichen wie die oben erwahnten und Grafikzeichen. Beide 
haben in einer Postleitzahl nichts zu suchen. 

Bei anderen Eingaben mag es Ihnen wiinschenswert erscheinen, gerade 
Grafikzeichen oder z. B. nur bestimmte Grafikzeichen fur die Eingabe 
zuzulassen: 

5070 IF Y$<CHR$(1 28) OR Y$>CHR$(1 91 ) THEN 5020 



84 Mein Colour-Genie 



10 PRINT"WIE LAUTET DIE POSTLEITZAHL s 

20 WL=4:BDSUB 5000 

30 IN=VALUN*) 

40 PRINT"OK. POSTLEITZAHL ")IN 

50 END 

60 



SOOO 'TASTATUREINGABEROUTINE #»»»**#♦### 

5010 ZZ=0: IN*= PRINTCHR* ( 14) ; 

5020 Y*»= I NKEY* ! I F Y*« " " THEN5020 

5030 IFY*=CHR*(13)TH£N 5200 

5040 I FY*< >CHR* ( B ) THEN5070 

5050 IFZZ>OTHEN IN*=LEFT* ( IN*,LEN< IN*> -1 > : ZZ=ZZ-1 

iPRINTY*) 

5060 GOTO 5020 

5070 IF Y*<" " OR Y*>"z" THEN 5020 

5030 PRINTY*; 

5090 IN*=IN*+Y* 

5100 ZZ-ZZ+1 

5110 IF ZZ=WL THEN 5200 

5120 GOTO 5020 

5200 RETURN 

5210 ' »#####»■##*#*#»##»*#########»**#*»■* 



Abb. 4.5: Einlesen von Werten mit der Eingaberoutine 



Genauso ist es auch moglich, nur Zahlen oder nur groBe Buchstaben fur 
die Eingabe zuzulassen: 

5070 IF Y$<"0" OR Y$>"9" THEN 5020 

oder 

5070 IF Y$<"A" OR Y$>"Z" THEN 5020 

Das Problem, das sich hier bei haufiger Verwendung der Eingaberoutine 
im gleichen Programm stellt, ist, daB Sie sich fiir eine bestimmte Uberprii- 
fung in der Zeilennummer 5070 entscheiden miissen und die derart fixier- 
ten Eingabebeschrankungen fiir das ganze Programm verbindlich sind. 
Dazu spater mehr. 

Der Grund, weshalb man solche Abfragen in eine Eingaberoutine mit 
einbaut, ist am besten mit einem Sprichwort zu beantworten: Ein Ubet 
bekampft man an der Wurzel. Stellen Sie sich vor, wie kompliziert sich die 
(nachtragliche) Uberpriifung einer Zeichenkette gestaltet, die nur Hexa- 
dezimalwerte enthalten soil, also die Ziffern 0—9 und A— F. In der Einga- 
beroutine ist das eine Zeile: 

5070 IF Y$>"F" OR (Y$<"A"AND NOT (Y$> = "0" AND Y$<"9")) 
THEN 5020 
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In einer Zeichenkette muB jedes einzelne Zeichen (nachtraglich) in einer 
Schleife auf diese Bedingung hin gepruft werden. Das bedeutet iiberfrus- 
sige Vergeudung von Speicherplatz und Rechenzeit. Geschieht eine sol- 
che Abfrage nicht, riskieren Sie das Auftreten eines Fehlers. Es ist dann 
nicht auszuschlieBen, daJ3 Ihr Programm nicht mehr lauft oder falsche 
Ergebnisse liefert. 

Je komfortabler eine solche Eingaberoutine aufgebaut ist, desto mehr 
„Arbeit" kann Sie dem Programmierer abnehmen. Komfortabel bedeu- 
tet jedoch auch komplex, denn diese Unterroutine miiBte urn weitere 
Bestandteile erweitert werden. Dies ist jedoch nur dann sinnvoll, wenn 
ein Programm viele verschiedenartige Eingaben erfordert oder z. B. mit 
sog. Eingabemasken gearbeitet wird. Eine Eingabemaske ist ein „Bild" 
auf dem Bildschirm, wo die Stellen, an denen Eingaben gemacht werden 
sollen, ausgepunktet sind, wie z. B. in folgender Bildschirmmaske: 




Abb, 4.6: Bildschirmmaske 



Eine Eingaberoutine, die Eingaben uber derartige Bildschirmmasken 
unterstiitzt, finden Sie in Abb. 4.7. Ihr detaillierter Aufbau soil hier nicht 
beschrieben werden. Sie ist jedoch den bisher beschriebenen Eingaberou- 
tinen ahnlich. Ihre zusatzlichen Fahigkeiten bestehen insbesondere darin, 
daB 

1. uber die Variable FL gekennzeichnet wird, welche Zeichen im Sinne 
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der Eingabe zulassig sind. 1st FL negativ, konnen nur Ziffern und Vor- 
zeichen eingegeben werden. 1st FL positiv, werden auch Zeichenket- 
ten vom Rechner akzeptiert. Der Wert, der in WL vorgegeben wird 
kennzeichnet nach wie vor die maximale Eingabelange. 

2. Wird das Zeichen <@> betatigt, setzt der Rechner die Variable KF 
die sonst immer den Wert besitzt, auf 1 und unterbricht die gegen- 
wartige Eingabe. 

Schauen Sie sich die Bildschirmausgabe in Abb. 4.8 an. Hinter dem 
Text„Vorname:'\ der durch 

40 PRINT "Vorname: '*; 

ausgegeben wird, stehen 15 Punkte, die die Maximallange der Eingabe 
kennzeichnen: 



120 PRINT® 131, ;:FL=15:GOSUB 230:... 

An dieser Stelle erfolgt die Verzweigung zur Unterroutine. Durch FL= 15 
werden maximal 15 Zeichen (Buchstaben etc.) verarbeitet und der Varia- 
blen IN$ zugewiesen. Stiinde in Zeile 120 FL= — 15, so konnten nur Zah- 
len eingegeben werden. Dies ist jedoch fur die Eingabe eines Vornamens 
unsinnig. Bei der Eingabe der Postleitzahl (im Programm Abb. 4.8 
Zeile 140) erweist sich auch diese Fahigkeit der Unterroutine als zweck- 
maBig. 

In jeder Zeile wird nun durch 

... IF CF=1 THEN GOTO... 

im Falle einer Betatigung der <@>-Taste eine erneute Eingabe eingelei- 
tet und die gegenwartige unterbrochen. Verzweigt der Rechner zur Fol- 
gezeile, ist eine Eingabe erfolgt. 

Auf diese Weise wird eine komplette Bildschirmmaske versorgt. 



6000 
6001 
6002 
6003 
6004 
6005 
6006 
6007 
6008 
6009 
6010 



Uebergabeparameter : 

FL=MAXIMALLAENGE DER ZEICHENKETTE. 
Ist FL negativ, koennen nur 
Zahlen, keine Buchstaben Oder 
Sonder zeichen eingegeben werden. 

Rueckl auf parameter: 

CF=1 DIE EINGABE WURDE UNTERBROCHEN. 

CF=0 Die Eingabe hat Guel tigkeit . 

WD=0 Der eingegebene Zahlenwert ist 
gan2zahlig. 



Abb, 4. 7: Eine Tastatureingaberoutine, die auch Bildschirmmasken unterstiitzt 



Eine generelle Eingaberoutine zur Textverarbeitung 
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6011 
6012 
6013 
6014 
6015 
6016 
6017 

6018 
6019 
6020 
6021 
6031 
6041 
6051 
6061 
7998 
7999 
B000 

8001 

8002 
8003 

8004 
8005 
8006 
8007 

8008 



8010 
8011 
8012 

8013 
8014 
8015 

8016 
8017 
8018 
8019 



WD=1 Der eingegebene Zahlenwert ist 

nicht ganzzahlig. 
WS=0 Es uurde eine positive Zahl 

eingegeben. 
WS=1 Es wurde eine negative Zahl 
eingegeben. 
' Die eingelesenen Werte stehen immer in der 
Variablen 
' IN* 

'Beispielauf ru-f : 
' 10 FL=-4sGOSUB8000:IF CF=1 THEN 

PRINTe200,"Eingabekorrektur"s jGOTO 10 
ELSE WERT*=IN* 



STOP 

'HIER BEGINNT DIE EINGABEROUTINE 

CF=0 1 PR I NTCHR* ( 1 4 ) 1 1 I N*= " " : Y*= I NKEY* : WD-0 1 WS 

=WD:WL-WDi IFFL=WDTHENFL»1 

PRINTSTRINS*(ABSCFL> ,". ") ; STRING* (ABS<FL> ,24 

>; 

Y*=INKEY*: IFY*=" "THEN8002 

I FY*< >CHR* < 1 3 ) THENB005ELSEPR I NTSTR I NG* < ABS ( F 

D-WL," ">; 

RETURN 

IF Y*O"e"THEN8007 

CF= It RETURN 

IFY*-CHR*<24)THENPRINTSTRING*(WL,CHR*<24> ) ; t 

GOTO8000 

IF Y*OCHR*<8>THEN8012 ELSE IF WL=0THEN 8002 

ELSEPR I NTCHR* ( 8 ) ; STR I NG* ( ABS ( FL ) -WL ,".">; ST 
RIN8*(ABS(FL>-WL,24);:IFFL>0THEN8010 ELSE GO 
TO 8011 

IN*=LEFT*(IN*,LEN(IN*)-1) 
WL=WL-lsGOTa8002 
IF ABS(FL)-WL THEN B002 ELSE IF FL>0 THEN IF 

Y*>=" "AND Y*< n z"THENB017 
IF Y*=". "ANDWD=0THENWD=1:GOTQB017 
IF Y*=" ,"THENPRINTY*;:WL=WL+1:QDTO8018 
IF ( Y*= " - " ORY*= " + ") ANDWS=0ANDWL=0THENWS= 1 : GO 
TOB017 

IFY*<"0" OR Y*>"9"THEN8002 
PRINTY*; : IN*=IN*+Y*s WL=WL+1 
IF ABS(FL)=1 THEN 8004 ELSE B002 
' ENDE DER EINGABEROUTINE 



Abb. 4.7: Eine Tastatureingaberoutine, die audi Bildschirmmasken unterstutzt 
(Fortsetzung) 
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1 Anwendungabei spiel Bi tdschirmmaske 

10 CLEAR 2000 

20 CLSsPRINT"<.e> = EINGABE WIEDERHOLEN 1 ' 

30 PRINTsPRINT 

40 PRINT"Vorname 

50 PRINT "Nachname 

60 PRINT"PLZ 

70 PRINT "ORT " 

80 PRINT-'TELEFONi" 

90 PRINT"Vorwahl : " 

100 PRINT B Nummer : " 

110 'ENDE DER MASKE 

120 PRINTei31,::FL=15:G0SUB 230: IF CF=1 THEN 12 

ELSE VN*=IN* 
130 PRINTei71,;:FL=15jGOSUB230i IF CF-1 THEN 130 

ELSE NN*=IN* 
140 PRINTe211,;:FL=-4:G0SUB 230: IF CF=1 THEN 14 

ELSE PL*=IN* 
150 PRINTe251,;:FL=15:GOSUB230: IF CF=1 THEN 150 

ELSE 0*= IN* 
160 PRINTS331,; :FL=-6:G0SUB 230: IF CF-l THEN 160 

ELSE VW*=IN* 
170 PRINTe371,;:FL=-7:GOSUB230:IFCF=l THEN170EL 

SE RN*=IN* 
180 PRINT: PRINT: PRINT 
190 'ENDE DER EINGABEN 

200 PRINT"FQLGENDE DATEN WURDEN EINGELESEN: " 
210 PR I NTVN* : PR I NTNN* t PR I NTPL* , O* s PR I NTVW* , RN* 
220 END 
230 GOTO 8000 

7998 STOP 

7999 'HIER BEGINNT DIE EINGA8ER0UTINE 

8000 CF=0 : PR I NTCHR* < 1 4 ) ; s I N*= " " : Y*= I NKE Y* : WD*0 : WS 
=WD : WL=WD : I FFL=WDTHENFL= 1 

8001 PRINTSTRING*(ABS(FL> , " . " ) J STRING* CABS CFL) ,24 

>; 

8002 Y*= I NKEY* : I F Y*= " " THEN8002 

8003 IFY*< >CHR* ( 13) THEN8005ELSEPRINT3TRING* <ABS (F 
D-WL," "); 

8004 RETURN 

8005 IF Y*<>"€"THENB007 

8006 CF= Is RETURN 

8007 I F Y*-CHR* ( 24 ) THENPR 1 NTSTR I NG* < WL , CHR* < 24 > > ; : 
GOTO8000 

8008 IF Y*OCHR*(8)THEN8012 ELSE IF WL-0THEN 8002 

ELSEPRINTCHR* (8) ; STRING* <ABS <FL) -WL ,".">( ST 
RING*<ABS(FL>-WL,24)t: IFFL>0THEN8010 ELSE GO 
TO 8011 
B010 IN*=LEFT*(IN*,LEN(IN*)-1> 

8011 WL=WL-1:GOTO8002 

8012 IF ABS<FL)«WL THEN 8002 ELSE IF FL>0 THEN IF 

Y*>=» "AND Y*<"z"THEN8017 

8013 IF Y*=". "ANDWD=0THENWD=1:GOTO8017 

8014 IF Y*=", "THENPR I NTY*; : WL=WL+HGOTO8018 

8015 IF <Y*="-"ORY*="+")ANDWS=0ANDWL=0THENWS=1:GO 
TO8017 

8016 IFY*<"0" OR Y*>"9"THEN8002 

8017 PRINTY*;:IN*-IN*+Y*:WL=WL+1 

8018 IF ABS(FD=1 THEN 8004 ELSE 8002 

8019 ' ENDE DER EINGABEROUTINE 



Abb. 4.8: Ein Anwendungsbeispiel mit Bildschirmmasken 



89 



Kapitel O 

Tonerzeugung 
mit dem Colour-Genie 



5.1 DIE BEFEHLE PLAY UND SOUND 

In Ihrem Colour-Genie befindet sich ein Soundgenerator. Ein Soundge- 
nerator ist ein Chip , mit dem Tone erzeugt werden konnen. Im Microsoft- 
BASIC stehen Ihnen-zwei Anweisungen zur Verfugung, um diesen Bau- 
stein anzusprechen: PLAY und SOUND. 

Mit PLAY wird ein Ton erzeugt, mit SOUND werden dessen Eigenschaf- 
ten verandert: 

PLAY (1,3,1,15) 

Wenn Sie nun am Lautstarkeregler Ihres Fernsehers drehen, horen Sie 
einen Ton, der der Note C entspricht. 

(Sie konnen auch, um ein sauberes Tonsignal zu erhalten, iiber die Audio- 
Buchse an der Riickwand des Colour-Genie einen Verstarker anschlie- 
Ben.) Ein einmal programmierter Ton wird so lange ausgegeben, bis dem 
Soundgenerator eine Anweisung erteilt wird, diesen wieder abzustellen: 

PLAY (1,3,1,0) , 

Die Bedeutung der einzelnen PLAY-Parameter konnen Sie auf Seite 111 
Ihres BASIC-Handbuchs nachlesen. Sie sehen, daB der Soundgenerator 
recht vielseitig einsetzbar ist. Um sich die Tonleiter in C-Dur ausgeben zu 
lassen, geben Sie folgendes Programm ein: 



10 DIE C-DUR TONLEITER VOM TIEFSTEN 




BIS ZUM HOECHSTEN TON 




20 FOR 0=1 TO B : 'ALLE OKTAVEN 




30 FOR T=l TO 7 s 'CDEFGAB 




40 PLAY(1,0,T,1S) 




50 FOR D=l TO 10: NEXT D 




60 NEXT T 




70 NEXT 





Abb. 5.1: Die C-Dur Tonleiter 
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Dies ist die verfugbare Tonpalette, die hier iiber Kanal 1 des Tonbau- 
steins ausgegeben wird. Der Soundgenerator verfugt iiber drei solcher 
Kanale. Jeder kann getrennt angesprochen werden, mit verschiedenen 
Tonen, die dann, zusammen ausgegeben, z. B. einen Akkord liefern kon- 
nen: 



10 


•EIN 


AKKORD 


WIRD 


SESPIELT 




20 


PLAY 


<1 


,4 


.1 


f 15)t 


*C 


AUF 


KANAL 


1 


30 


PLAY 


(2 


.4 


,3, 


15)1 


'E 


AUF 


KANAL 


2 


40 


PLAY 


(3 


,4 


,5, 


,15): 


*6 


AUF 


KANAL. 


3 



Abb. 5.2: Spielen von Akkorden 

Jeden ausgegebenen Ton konnen Sie durch Eingabe von 

SOUND 7,63 

wieder abstellen. Tone oder Akkorde konnen Sie auch langsam ausklin- 
gen lassen, indem Sie die Lautstarke dezimieren: 



10 


FOR L 


= 15 TO 





STEP 


-1 






20 


PLAY 


Hi 


4,1 


,L> 


: "C 


AUF 


KANAL 


1 


30 


PLAY 


<2, 


4,3 


,D 


s E 


AUF 


KANAL 


2 


40 


PLAY 


(3, 


4,3 


,L) 


: '6 


AUF 


KANAL 


3 


30 


FOR C 


>=1 


TO 


10: 


NEXT 


' D: 


'VERZOEBERUNQ 


60 


NEXT. 


L 















Abb. 5.3: Dezimierung der Lautstarke 

Mit dem Soundgenerator lassen sich jedoch nicht nur Tone erzeugen. 
Auch sogenannte Effekte konnen in die Tonausgabe miteingebaut wer- 
den. So kann z. B. ein Ton nach bestimmten Vorgaben derart moduliert 
werden, daB sich Echohalleffekte erzeugen lassen oder daB im Hinter- 
grund ein leichtes Meeresrauschen mitklingt. Wenn Sie sich mit solchen 
Dingen naher befassen wollen, nriissen Sie sich das technische Handbuch 
zum Colour-Genie zur Hand nehmen. Dort ist auf Seite 21ff . der interne 
Aufbau des Soundgenerators beschrieben. Fur den Fall, da6 diese Unter- 
lagen nicht ausreichen sollten, konnen Sie bei der Herstellerfirma des 
Soundgenerators ein 

USER-MANUAL zum Soundgeneratorbaustein AY-3-8910 

anfordern. Dort sind alle Eigenschaften des Bausteins und dessen Pro- 
grammierung beschrieben. Zum Testen der Effektroutinen steht Ihnen 
im Anhang des B ASIC-Manuals ein Programm zur Verfugung. 
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5.2 EINMUSIKINTERPRETER 

Wenn Sie einmal angefangen haben, ein Musikinstrument zu erlernen, 
haben Sie bestimmt irgendwo einige Notenblatter von Musikstucken. In 
Abb. 3.28 wird Ihnen ein Programm vorgestellt, mit dessen Hilfe Sie 
direkt in solchen Kompositionen Noten in den Rechner eingeben konnen, 
die dann vom Soundgenerator Ihres Colour-Genie gespielt werden. Die 
Befehle, die (Jieser Noteninterpreter kennt, sind recht einfach aufgebaut: 

Zuerst einmal gibt es die Noten C,D,E,F,G,A,B und die Pause P. Hin- 
ter einer Note kann (muft nicht) eine Oktave angegeben werden, in der 
die entsprechende Note gespielt werden soil, wie z. B.: 

C3,D5,E7 

Wird hinter der Note kein Zahlenwert vorgegeben, entspricht dies der 
Oktave 4. Wenn Sie also 

C,D,E,F,G 

eingeben, werden all diese Noten in der vierten Oktave gespielt. 

Um Halbtone anzusprechen (entsprechend den schwarzen Tasten auf der 
Klaviatur, s. a. S. Ill), wird an die entsprechende Note ein .#. ange- 
hangt. Beispiel: 

C3# spielt die Note cis in der 3. Oktave. 

Nun zur Tonlange. Alle bisher behandelten Eingaben erzeugen Tone, die 
genau einen Takt lang sind. Um halbe Noten, Viertel, Achtel, Sechzehn- 
tel etc. zu spielen, wird an die Note jeweils ein /und eine Zahl angehangt: 

C/2 entspricht einer Note von halber Tonlange; 
CIA entspricht einer Viertel-Note; 
C/8 einer Achtel-Note etc. 

Manchmal tauchen in Kompositionen sog. punktierte Noten auf. Eine 
punktierte halbe Note hat z. B. 3/4 Taktlange. Auch die punktierten 
Noten wurden im Musikinterpreter in Abb. 5.4 beriicksichtigt. Der 
Punkt wird einfach an die entsprechende Note angehangt, wie z. B. 

C/4. j 

Soweit zur Syntax des Musikinterpreters. Alle Noten werden, durch 
Kommata oder Leerzeichen voneinander getrennt, in Variablen, begin- 
nend mit A$(0) ab Programmzeile 30 abgelegt. Die Noten werden so 
lange abgearbeitet, bis der Rechner ein A$(x) vorfindet, das einen Leer- 
string enthalt. Alle Daten fur den Soundgenerator werden zuerst im 
Rechnerspeicher ab Speicheradresse F400 Hex ff. abgelegt. Erst wenn 
alle Noten in den A$- Variablen analysiert wurden, wird das Musikstiick 
gespielt. , 
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Bei falschen Eingaben werden vom Interpreter Fehlermeldungen ausge- 
geben. Der Interpreter kennt 2 Fehlermeldungen: 

a) Unbekanntes Zeichen 

b) Unzulassig benutztes Zeichen 

Die erste Fehlermeldung wird immer dann ausgegeben, wenn sich in der 
Variablen A(x) ein unzulassiges Zeichen befindet. Uber die zweite Feh- 
lermeldung werden unzulassige Noten (solche, die es nicht gibt) ange- 

zeigt:E#,H#. , 



10 


CLEAR 2000:DIM A*(20> «SP=&HF400:PP-SP 




20 


' AB HIER DIE NOTEN ABLEGEN 




30 


A*(0>*=*'G/4,E/4,E/2,F/4,D/4,D/2,C/4,D/4,E/4,F 
/4,G/4,G/4,G/2," 




40 






50 






60 






70 






80 






999 






1000 


CLSsPRINT M UEB£RSETZUNG BEGINNT" 




1010 


0=4 J VOREINSTELLUNG OKTAVE 




1020 


P=ls ' 1. ZEICHEN 




1030 


FOR X-0 TO 20 




1035 


PRINTSTRING*(30,"w n ) i PRINT A*<X> i PRINTSTRING* 






(30, "#"): PRINT 




1040 


L=LEN(A*(X)) : IF L=0 THEN 10000 




1045 


Wl=64sW2=lsW3»0!W5-15 




1050 


IF P>L THEN P=1«NEXTX ELSE B*=»MID*<A* CX> ,P, 1 






) iB»ASC<A*<X>> 




1060 


S*=" ,CDEFGAB/#.P"sFOR U=l TO 13 




1080 


Sl*=MID*<S*,U,l>iIF S1**B* THEN 1200 




1090 


NEXTU 




1100 


PRINT"FEHLER IN A* < "» X; " ) :UNBEK. ZEICHEN" 




1110 


PRINTA*<X> 




1120 


PRINTTAB(P-l)"!" 




1130 


STOP 




1200 


ON U GOTO 1300,1300,1400,1900,1600,1700,1800 
, 1 900 , 2000 , 2 1 00 , 2200 , 2300 , 2400 




1201 


GOTO 1100 




1300 


' > , 




1301 


'PLAY 




1302 


PRINT"NOTENLAENBE ";W1 




1303 


PRINT"OKTAVE "|W3 




1304 


PR I NT "NOTE "»W4 




1305 


PRINT"LAUTSTAERKE " J W5 




1306 


POKE PP, WlAND255sPP-PP+ls POKEPP, INT (Wl/256) « 




PP-PP+ 1 s POKEPP , W3 : PP-PP+ 1 : POKEPP , W4 s PP-PP+ 1 : 




POKEPP , W5: PP=PP+ 1 


1307 


PRINT 




1308 


P=P+lsGOTO 1045 




1400 


' > C 




141(9 


W4=l : GOSUB9000: GOTO 1050 





Abb. 5.4: Musikinterpreter 
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1500 
1510 
1600 
1610 
1700 
1710 
1800 
1B10 
1900 
1910 
2000 
2010 
2020 
2100 
2110 
2120 
2130 

2140 
2200 
221(9 

222(9 



2300 
2310 
2400 
2410 
2420 

9000 
9010 
9020 
9030 

9040 
9050 



■ > D 

W4=2s GDSUB9000! GOTO 1050 

' > E 

W4=3: GOSUB9000: GOTO 1050 

' > F 

W4=4 j GOSUB9000: 6OTO1050 

' > G 

W4=5 1 GOSUB9000 1 GOTO 1 050 

' > A 

W4=6: GOSUB9000: GOTO 1050 

' > B 

W4*7 : G05UB 9000 : GOTO 1 050 

> / 

Cl*="" 

P-P+lsB#=MID*(A*(X> ,P,1> 

IF <B*<>",") AND <B*<>" ") AND <B*<>"."> THE 

N C1*=C1*+B*:G0T0 2120 

Wl=Wl/VAL(Cl*)tGOTO1050 

• > * 

IF (W4=l> OR <W4=<2) THEN W4=W4+7: P-P+l : GOTO 1 

050 

IF <W4=3> OR <W4=7> THEN PRINT"FEHLER IN A* ( 

";X;") jUNZULAESSIG BENUTZTES ZEICHEN" : GOTOl 1 

10 

' > . 

Wl=Wl+.5*Wl:P=P+l(GOTai050 

• > P 

W5=0! P=P+1 i GOTO 1050 



' UNTERPROGRAMMi 

CHECKEN OB NOTE + OKTAVENWERT 
P«P+1 

B*=MID*<A*(X> ,P,1)«IF B*<"1" OR B*>"B" THEN 
RETURN 
W3=VAL <B*> : P«P+ 1 « RETURN 



10000 'ABSPIELEN DER NOTEN 

10010 PR I NT "< RETURN > ZUM ABSPIELEN" 

10020 PRINTINTt (PP-SP>/5);" NOTEN SIND ZU SPIELEN" 



10030 
10040 
10050 
10060 
10070 
10080 
10090 
10099 
10100 
10111 
10120 
10130 
10140 
10145 
10150 



FOR X=SP TO PP-4 STEP 5 
P1=PEEK(X)+256*PEEK(X+1) t 'TONLAENGE 
P2=PEEKEX+2) : ' OKTAVENNUMMER 
P3=PEEK(X+3) : TONNUMMER 
P4=PEEK ( X+4 > : ' LAUT s 0=PAUSE 1 5=T0N 

PRINT"PLAY ( 1 , " ; P2; " , " s P3( " , " $ P4> " > " 

FOR L=l TO PI 

IsADATA <1,P2,P3,P4> 

NEXT L 

IsADATA (l,P2,P3,0)i ENDE TON 

NEXT X 

IsADATA(l,P2,P3,0) 

END 



Abb. 5.4: Musikinterpreter (Fortsetzung) 
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Kapitel O 

Arbeiten 
mit Disk-B ASIC 



Wenn Sie eine Diskettenstation fiir das Colour-Genie erwerben, bekom- 
men Sie automatisch das Disk-B ASIC mitgeliefert. Es befindet sich auf 
dem Steckmodul, das rechts hinten am Rechner eingesteckt wird. Dieses 
Disk-B ASIC enthalt die notwendigen Programme, um mit den Disket- 
tenlaufwerken unter Microsoft-BASIC arbeiten zu konnen. Beim Ein- 
schalten eines Rechners, in den der Disk-BASIC Einschub eingesteckt 
ist, stehen alle notwendigen Routinen automatisch zur Verfugung. Dies 
ist jedoch nur eines der kennzeichnenden Merkmale des Disk-BASIC. 
Auch solche Anweisungen, die nicht direkt mit dem Peripheriegerat Dis- 
kette zu tun haben, stehen neu, sozusagen ais erweiterter Befehlssatz des 
Interpreters, zur Nutzung bereit. Dazu zahlen 

Anweisungen wie LINEINPUT 

Funktionen wie INSTR,MID (....)=, DEF FN 

Echtzeituhr und deren Programmierung 

Einige dieser neuen Mo glichkeiten sollen Sie im folgenden kennenlernen. 



6.1 DIE ZEIT 

Eine interessante Funktion ist TIME$, die, einmal mit den richtigen 
Daten versehen, Datum und Uhrzeit standig aktualisiert, solange der 
Rechner in Betrieb ist. 

Wenn Sie 

PRINT TIME$ 

eingeben, erhalten Sie vom Rechner eine siebzehn Zeichen lange Zei- 
chenkette, in deren ersten acht Zeichen das Datum und in deren letzten 
acht Zeichen die Uhrzeit erfaBt ist. Mit Hilfe dieser Funktion ist es Ihnen 
moglich, bestimmte Rechenablaufe zeitlich zu erfassen oder Eingaben 
zeitlich zu begrenzen. Da die Werte fiir Tagesdatum und Uhrzeit beim 
Einschalten des Rechners jeweils mit initialisiert werden, benotigen Sie 
ein kurzes Programm, das Datum und Uhrzeit mit den richtigen Werten 
versieht: , 
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5 CLS 

10 INPUT"WIE LAUTET DAS DATUM <TTMMJJ> " ; D* 

219 INPUT"WIE LAUTET DIE UHRZEIT (STMISE) " ;T* 

30 TAG=VAL < LEFT* < D* , 2 > ) 

40 M0=VAL<MID*<D*,3,2) ) 

50 JA-VAL(RIGHT*<D*,2>> 

60 POKE *<H4046,TAG(POKE8tH4045,MQ»POKE8<H4044,JA 

70 ST=VAL<LEFT*(T*,2>) 

B0 MI=VAL<MID*<T*,3,2> > 

90 SE-VAL (RIGHT* <T*,2>> 

100 POKEfcH4043,ST«PQKE8eH4042,MI:POKE*<H4041 ,SE 

110 CLS 

120 PRINT@0,TIME* 

130 GOTO 120 



Abb. 6.1: Setzen der Uhr, Eingabe des Datums I 

Nach Einlesen der Werte wird links oben auf dem Bildschirm das Tages- 
datum und die Uhrzeit angezeigt. Sie konnen jetzt ohne weiteres die 
BREAK-Taste betatigen und das Programm durch NEW loschen oder 
andere BASIC-Programme starten. Unabhangig davon wird jedesmal, 
wenn Sie 

PRINT TIME$ I 

eingeben, das aktuelle Tagesdatum und die richtige Uhrzeit angezeigt. 

Eine weitere Verwendungsform der TIME$-Funktion ist die, Rechenab- 
laufe in BASIC-Programmen zeitlich zu erfassen. | 

Wie viele Durchlaufe und wieviel Zeit benotigt Ihr Rechner z. B. , um bei 
zufalliger Auswahl einer Zahl zwischen und 100 die Zahl 95 zu treffen? 



10 Z=0:'ZAEHLER DER DURCHLAEUFE 

20 PGKE&H404 1,0: POKE&H4042 , : POKE&M4043 ,03' RUEC 

KSETZEN DER UHR WIE BEI EINER STOPPUHR 
30 RANDOM 
40 W=RND(100) 

30 Z-Z+l: HOCHZAEHLEN ZAEHLER 
60 IF W-95 THEN 80! 'TEXT AUSGEBEN, WENN RIGHT I 

GE ZAHL GEFUNDEN WURDE 
70 GOTO 30 
80 T*=RIGHT*<TIME*,9>: 'ERFASSEN DER BENOETIGTEN 

ZEIT 
90 PRINT: PRINT 
100 CLS 
110 PRINT"ES WAREN ";Z;" DURCHLAEUFE ERFORDERLIC 

H, UM AUS 100 ZAHLEN DIE ZAHL 95 ZU 

ERMITTELN." 
120 PRINT"DER RECHNER BRAUCHTE DAZU " 5 MID* (T*, 4, 

2);" MINUTEN UND " ;RIGHT* (T*,2> ; " SEKUNDEN. " 



Abb. 6.2: Arbeiten mit der Uhr. Hier: Zeitliche Ermittlung von Rechenvorgdngen 
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Eine entsprechende Bildschirmausgabe finden Sie in Abb. 6.3. 




Abb. 6.3: Bildschirmausgabe: Zeitliche Ermittlung von Rechenvorgangen 



Eine weitere Einsatzmoglichkeit der Echtzeituhr besteht, wie schon oben 
erwahnt, darin, dem Anwender fur die Beantwortung einer Frage oder 
allgemein fur die Eingabe von Zeichen nur eine begrenzte, vorgegebene 
Zeit zur Verfugung zu stellen. Auch dafur kurz ein Beispielprogramm: 



its CLS 

20 PRINT" IHNEN WIRD GLEICH EINE FRAGE GESTELLT, 

ZU DER DREI MOEGLICHE ANTWORTEN VORGE- 
GEBEN WERDEN, VON DENEN NUR EINE RICHTIGIST. 

it 

3d PRINT"SCHAFFEN SIE ES, DIE FRAGE IN MAXIMAL 

5 SEKUNDEN ZU BEANTWORTEN?" 
40 PRINT:PRINT!PRINT"DRUECKEN SIE < RETURN > UND 

DIE ZEIT ZAEHLT" 
50 INPUT A* 
60 CLS 
70 PRINT"WIEVIEL 1ST 17 MAL 16 ???" 



Abb. 6.4: Zeitliche Begrenzung einer Eingabe 
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80 


PRINT! PRINT" 1 > 162" 




90 


PRINTiPRINT"2 > 272" 




100 


PRINT! PRINT"3 > 282" 




110 


PRINTi PRINT 




120 


POKE &H4041,0 : 'SEKUNDEN AUF 




130 


Y*=INKEY*!lF RIGHT*<TIME*,2>>"05" DR Y*<>"" 
THEN 140 




135 


GOTO 130 




140 


IF Y#=""THENPRINT"DIE 5 SEKUNDEN SIND UM"tEN 

D 

IFY*« , '2"THENPRINT ,, GRATULIERE! RICHTIG GELOES 




150 






T" ! END 




160 


PRINT "DIE ANTWORT KAM ZWAR SCHNELL GENUG, AB 
ERFALSCH. " 





Abb. 6.4: Zeitliche Begrenzung einer Eingabe (Fortsetzung) I 

Soweit zu den Anwendungsmoglichkeiten der TIME$-Funktion. 

Eine weitere unter Disk-BASIC zur Verfugung stehende Funktion, 
DEFFN, wird eingehend in den Kapiteln „Funktion" und „Eigene Funk- 
tionen" behandelt. 

6.2 INSTR 

Es gibt noch eine Funktion, die Ihnen unter Disk-BASIC zusatzlich zur 
Verfiigung steht: Sie lautet INSTR. Mit ihrer Hilfe ist es moglich, den 
Inhalt von Zeichenketten dahingehend zu analysieren, ob und an welcher 
Stelle sich eine bestimmte Folge von Zeichen in der Zeichenkette beftn- 
det. 



10 CLS 

20 PRINT"HIER WIRD DIE HAEUFIGKEIT BESTIMM- 

TER BUCHSTABEN IN EINEM TEXT ANALYSIERT" 

30 LINEINPUT"WIE LAUTET DER 

TEXT: ";A* 

40 L=LEN(A*> 

50 PRINT 

60 FOR X=ASC<"A"> TO ASCC'z") 

70 N»0 

BO ZZ'l 

90 T=0 

100 N=N+1 

110 ZZ=T+1 

120 T=1NSTR<ZZ,A*,CHR*<X> > 

130 IF TOO THEN 100 

140 N=N-1 

150 PRINT"<";CHR*(X>;"> TAUGHT IM TEXT "jN;" MAL 

AUF. DAS ENTSPRICHT EINER HAEUFIGKEIT 

VON ";100#N/Lf" */..":PRINT 

160 NEXT X 



Abb. 6.5: Ermittlung von Hdufigkeiten mit Hilfe der INSTR-Funktion 
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In diesem Programm taucht neben der LINE-INPUT-Anweisung in 
Zeile 30, die im Gegensatz zu der INPUT- Anweisung in der Eingabe 
auch Kommata und ahnliche Sonderzeichen zulaBt, in Zeile 120 die 
INSTR-Funktion auf . Das Programm ist im wesentlichen aus zwei Schlei- 
fen aufgebaut. Die auBere Schleife beginnt in Zeile 60 und endet in 
Zeile 170. Sie bewirkt die Bearbeitung der Zeichen A bis z. Die innere 
Schleife betrifft die Zeilen 100 bis 130, wo der eingegebene Text vom 
ersten bis zum letzten Zeichen auf das Auffinden eines bestimmten Buch- 
stabens hin analysiert wird. Im Programm wird mit mehreren Variablen 
gearbeitet, die im einzelnen folgende Bedeutung haben: Die Variable N 
wird jedesmal um 1 hochgezahlt, wenn der Buchstabe CHR$(X) in der 
vorgegebenen Zeichenkette A vorgefunden wurde. Ist dies nicht der Fall, 
liefert die INSTR-Funktion in Zeile 20 fur die Variable T den Wert Null, 
so da6 die Anzahl der vorgefundenen Buchstaben in der Zeichenkette 
genau um 1 niedriger ist als N, was in Zeile 140 korrigiert wird. Die Varia- 
ble ZZ stellt einen Zeiger dar, der immer auf die Stelle zeigt, bei der die 
Suche nach einem bestimmten Zeichen in der Zeichenkette beginnen soil. 
Wurde die Haufigkeit eines bestimmten Zeichens ermittelt, wird wieder 
zur Zeile 70 verzweigt, wo die Variablen N, ZZ und T wieder mit 
Anfangswerten versehen werden. Eine entsprechende Bildschirmaus- 
gabe dieses Programms finden Sie in Abb. 6.6. 



HIER WIRD DIE HAEUFIGKEIT BESTIHH- 

TER BUCHSTABEH IH EIKEH TEXT AHALYSIERT 

VIE LAUTET DER 

TEXT HA UEHH DAS HAL GUT CEHT 

<A> TAUCHT IN TEXT 3 HAL 

AUF. DAS EHTSPRICHT EIHER HAEUFIGKEIT 

VOH 12.5 X . 

<B> TAUCHT IH TEXT HAL 

AUF. DAS EHTSPRICHT EIHER HAEUFIGKEIT 

<C> TAUCHT IH TEXT 8 HAL 

AUF. DAS EHTSPRICHT EIHER HAEUFIGKEIT 

VOH X . 

£R£ T ay.£ H I.. I,, TEXT * hal 

BSE 2 ft ? EHTSPRICHT EIHER HAEUFIGKEIT 

VOH 4.16667 X. 



Abb. 6.6: Bildschirmausgabe im Programm in Abb. 6.5 
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6.3 LINE INPUT 



V 



Auch die LINE INPUT-Funktion gehort zum Bestand der Disk-BASIC- 
Anweisungen. Die Verwendung von LINE INPUT lafit sich schon aus 
dem Namen ableiten, der soviel bedeutet wie „Einlesen einer (ganzen) 
Eingabezeile". Diese Anweisung wird ausschlieBlich zum Einlesen von 
Zeichenketten verwendet: 

10 LINE INPUT'Wie war der Spielstand 1 . FC Koeln gegen R.W. Essen" ;A$ 

Der Unterschied zur INPUT- Anweisung besteht darin, dafi bei LINE 
INPUT keine Beschrankungen die Zuweisung bestimmter Zeichen an 
eine Zeichenkettenvariable verhindern. 

Wenn Sie das o. a. Beispiel starten und 4:3 eingeben, wird diese Zeichen- 
folge auch tatsachlich der Variablen A$ zugewiesen. 
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Kapitel I 

Spiele 



7.1 REVERSI 

REVERSI ist ein orientalisches Brettspiel. Es ist auch unter dem Namen 
Othello gelaufig. Auf einem 8x8 Spielfeld, wie Sie es in Abb. 7.1 sehen, 
werden einem Spieler runde, dem anderen viereckige Steine zugeteilt. 

Es konnen entweder 2 Personen gegeneinander spielen oder aber eine 
Person gegen den Computer. 



Je zwei Steine pro Spieler bilden die Ausgangsstellung. 























■ 














H tfaehle 
■ du bei 


ein Feld oder gib <P> ein, uenn I 
dieses Zu9 Passt? ■ ^m 




t 


2 


3 


4 


5 


6 


7 


8 J 






9 


10 


11 


12 


13 


14 


15 


16 






17 


18 


19 


28 


21 


22 


23 


24 






25 


26 


27 


• 
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38 


31 


32 






33 


3* 


35 


m 


• 


38 


39 


48 






i *' 


12 


43 


44 


45 


46 


47 


48 1 




H 


58 


51 


52 


53 


54 


55 


■ 
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58 


59 


68 


61 


62 


63 


I 























Abb. 7,1: Das durchnumerierte Spielfeld fur REVERSI 
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Regeln: 

Die beiden Spieler kommen abwechselnd zum Zuge. Der Rechner ermit- 
telt fiber eine Zufallsfunktion, wer den ersten Zug hat. Mit jedem Zug 
wird ein neuer Stein auf das Spielfeld gesetzt. Dies geschieht durch Ein- 
gabe einer Zahl zwischen 1 und 64. Gesetzt werden darf nur auf solche 
Felder, die bisher noch nicht belegt sind, und zwar so, daB entweder dia- 
gonal, horizontal oder vertikal gegnerische Steine zwischen eigenen „ein- 
geklemmt" werden. Solche „eingeklemmten" Steine werden dann zu 
eigenen Steinen. 

Beispiel: 

Wenn Sie im Spiel die eckigen Steine (xx) haben und bei folgendem Bild 
am Zug sind: 

27 xx oo 30 

konnen Sie Feld 30 wahlen. Danach wandelt sich das Spielfeld wie folgt: 

27 xx xx xx 

Sinn des Spiels ist es, am Ende, d. h. wenn alle Felder mit Steinen belegt 
sind, fiber mehr Steine als der Gegner zu verffigen. Den Spielstand kon- 
nen Sie sich jeweils dann, wenn Sie am Zug sind, durch Eingabe von S 
vom Rechner ausgeben lassen. 

Fur jeden Spieler besteht Zugzwang, solange die Moglichkeit besteht, 
nach diesen Spielregeln Steine zu setzen. Ist dies nicht der Fall, mfissen 
Sie durch Eingabe von P passen. Der Rechner iiberpriift dies genau. Stellt 
er fest, daB Sie noch an irgendeiner Stelle einen Stein setzen konnen, gibt 
er Ihnen die Meldung aus: 

Du darfst nicht passen. Du kannst z. B. noch auf Feld xx 

Sie konnen dann Ihre Eingabe wiederholen. Noch ein Tip: Die Felder am 
Rand und in den Ecken nehmen eine Schlfisselstellung ein. Versuchen 
Sie, doit so viele Steine wie moglich zu plazieren. Machen Sie keine Feh- 
ler , denn darauf spekuliert der Rechner . . . 

Zum Programmaufbau: 

Grundgerfist des Programms ist ein Feld, das in Programmzeile 70 defi- 
niert wird. Der Feldname ist A. 

DIM A(64) 

Mit diesen 64 Feldelementen kann jede einzelne Position auf dem Spiel- 
feld erfaBt werden, Eine solche Position kann 

1 . leer sein ( A(x) = 0) ; 

2. mit einem runden Stein besetzt sein (A(x)=l); 

3. mit einem eckigen Stein besetzt sein (A(x)= — 1). 
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Nach der Felddimensionierung wird der Bildschirm geloscht und in 
Zeile 90 zur Programmzeile 530 verzweigt. Dadurch werden diverse 
Unterprogramme, die in den dazwischenliegenden Zeilen liegen, iiber- 
sprungen. 

Von Programmzeile 530 bis 900 werden Eingaben versorgt (Anzahl der 
Spieler und deren Namen etc.) und Informationstexte ausgegeben. 
Danach wird ab Programmzeile 920 das Spielfeld aufgebaut, und die 
Variablen werden mit Anfangswerten versehen (bis Programm- 
zeile 1080). Je nachdem, ob der Wert der Variablen F 1 oder — 1 ist, ist 
entweder der erste Spieler oder der zweite (der auch der Rechner sein 
kann) am Zug. In Programmzeile 1550 kommt nach jedem abgeschlosse- 
nen Zug durch 

F=-F 

wieder der Gegenspieler an die Reihe. An dieser Stelle enden unsere 
Erlauterungen. Dies hat folgenden Grund: Der iibrige Teil der BASIC- 
Routinen behandelt im wesentlichen die Strategic des Rechners und 
diverse Ein-AAusgabefunktionen, Ein Spiel wird einfach uninteressant, 
wenn man die Strategic seines Gegners kennt, weil man die BASIC- 
Befehle nachvollziehen kann. Viel interessanter hingegen ist es, anhand 
des Spielverhaltens eines Rechners dessen Strategie zu erkennen und 
dann zu gewinnen. 

Viel Spafi mit REVERSI! 



10 ANGEPASST AUF COLOUR GENIE 

30 CLS 

40 PRINTe4B0," REVERS I" 

50 FORN-1TO650INEXT 

70 RANDOM: D IMA < 64 >:CLSiGOTO220 

80 FORX=lTO1200:NEXTXt RETURN 

90 IFF=1GOTO110 

1 00 PR I NT®V*40+H , ) : PR I NT " THENTHEN " ; : RETURN 

1 10 PRINT9V*40+H, ; : PRINT"MKD*VAL" ; * RETURN 

120 GOTO650 

130 H=4*<X-8*INT(X/8. 1>> s V=»6+2*INT (X/8. 1>:RETURN 

140 FOR TT=0 TO 200 STEP 40tPRINTSTT,CHR*<30) ; :N 

EXT:PR1NTS0, ; : RETURN 

150 D-243 ! N« 1 1 GOSUB 170: GOSUB200 1 GOSUB200 *. GOSUB20 

0i GOSUB200! GOSUB200: GOSUB200 

160 GO5UB200: RETURN 

170 F0R2*1T08!PRINT«INT<D) ,N: D«D+4« N«N+1 iNEXTZbR 

ETURN 

180 RETURN 

200 D-D+48 1 GOSUB 170: RETURN 

210 D=D+76: GOSUB 170 i RETURN 



Abb. 7,2: Die Programmhste zu Reversi 
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220 PR t NTCHR* ( 23 ) ; : K=0 1 K=RND < 2 > s PR I NT620 , " 

"iB*="Der Rachner " 
230 PRINTi INPUT" 1 Oder 2 Spieler"; J: IFJOIANDJO 

2THEN230ELSEPRINTiINPUT"Deinen Namen bitte : 

" ■ A* 
240 F= 1 : I F J=2GOTO270 
250 CLS : I FK= 1 BOTO290 
260 GOTO280 
270 PRINTt INPUT"und den Namen des Gegners bitte 

i"|B*:CLS 
280 PRINTS 40, B*;:GOTO300 
290 PRINTS 40,A*;:GOTO300 
300 PRINT" soil anfangen und spielt 

fliit -Folgenden Steinen : " 
310 H=30 a V=2 s F- 1 « BOSUB90 
320 IFK=16OTO340 
330 PR I NTS 1 60 , A* J : GOTO350 
340 PRINT0160,B*; 
350 PRINT" spielt ffllt 

folgenden Steinen" 
360 V-5 i F=- 1 i GOSUB90 
370 GOSUB80: CLS 
380 PRINT"Durch Eingabe von 'S' kannst Du 

dir den Spielstand anzeigen 1 assen " i GOSUB80 
390 CLS:GOTO440 
400 REM 

410 FORX=1TO64:IFA(X)=0GOTO430 
420 GDSUB 130 s F» A ( X > : GO8UB90 
430 NEXTX i RETURN 
440 FORX-lTO64:A(X>-0tNEXTX 
450 AC28)=l*A(37)»iiA<29)=-ltA<36)»-l 
460 GOSUB150: GOSUB130I BOSUB400: GGTO860 
470 GOBUB140:PRINTSl,A*i", "|iGQTO520 
480 60SUB I 40 : PR I NTS 1 , B* ; " , " ; I GDTQ520 
490 GOSUB 1401 PRINT" Ich bin dran,ich glaub' ich 

nehin " 
500 BOSUB980: RESTORE: I FR-0GQTO470 
510 GOSUB140:PRINT@1," " ; : PRINT"Okay , gemacht • I 

ch nehme Feld ";T; : Z=T:E=0sGOTO590 
520 I*="":Z*= PRINTS80,"":: INPUT"Waehle em Fe 

Id oder gib <P> ein, wenn 

Du bei diesem Zug passt" j Z*: GOSUB 140: IFZ*=" 

S"THENG0SUB1331 :BOSUBB0 
530 Z-VAL(Z*):IFZ*O"S"GOTO550 

340 PRINTS0, GOSUB 140: GOSUB 1B0: GOTO520 

550 GOSUB140: IFZ*="P"GOTO810 

560 IF<Z>0)*(Z<65)GOTO5B0 

570 PRINTSl,"So ein Feld gibt es nicht. ":GOSUB80 

: GOSUB 140: GOTO520 
580 IFA<Z)O0GOTO610 

590 W=0 : L«0 : E-0 1 GOSUB620 s I F W=0GOTO520 
600 F— F:G0T086B 
610 PRINT@l,"Feld schon belegt . "s GOSUB80: GOSUB 14 

0:GOTO520 
620 D=l : GOSUB120: D=-l : GOSUB 1 20 : F0RD=7TD9s GOSUB1 

20:NEXTDtFORD=-9TO-7:GOSUB120:NEXTD 
630 IFEO1GOTO1270 
640 RETURN 



Abb. 7.2: Die Programmliste zu Reversi (Fortsetzung) 
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650 6=Z+D 

660 I FG<1 RETURN 

670 IFB>64RETURN 

680 IFA<G)-FTHENRETURN 

690 IFA<G)«0RETURN 

700 I F ABS < D > =8GOTQ730 

710 IFINT (8/8) *<G/B> RETURN 

720 IF INT <(G~l)/8)=((G-l>/8> RETURN 

730 G=G+D s I FG< 1 RETURN 

740 IFG>64RETURN 

730 IFA<G)=FGQTO770 

760 GOTO690 

770 Y=*0 : W= 1 : 1 FE*= I GOTO800 

780 I FL* I RETURN 

790 FORX=G-DTOZ+DSTEP-D : A < X ) »F : GOSUB 1301 GOSUB90 j 

NEXTX: RETURN 

800 FOR X=G-DTOZ+DSTEP-D i Q-G+ 1 : NEX T X i RETURN 

810 W=0!L=l!FORZ=lTO64:IFA<Z)O0GOTO830 

820 GOSUB620: IFW=1GOTO850 

830 NEXT Z I I F Y= 1 GOTO 1 330 

840 Y=lsF=-FsGOTO860 

850 PRINT«l,"Du darfst nicht passen. 

Du kannst z.B. noch au-f Feld H | Z:GQSUB80iGOT 

0520 

860 IFJ-1GOTO900 

870 IFF=1GOTO930 

880 IFK-1GOTO480 

890 GOTO470 

900 IFF=1GOTO930 

910 IFK-1GOTO490 

920 GOTO470 

930 IFK-1GOTO470 

940 GOTO480 

950 IFK-1GOTO470 

960 GOTO490 

970 CLS«GOTO460 

980 R-0iT*0iE=l 

990 F0RP-28T0 1 STEP- 1 : I FA ( P ) <>0 I =P-9 
1000 NEXTP: F0RP-37T064: IFA (P) < >0O=P+9 
1010 NEXTP: F0RP=lT04!READZs IFA <ZX>0GOTO 1040 

1020 IF(Z<I)+(Z>O)GOTO1040 

1 030 GOSUB 1210:1 FQ< >0GOTO 1 1 B0 

1040 NEXTPsR=0:FORP=lTO12sREADA,B,N,M:FORZ=ATOBST 

EPN 

1050 IFA(Z)O0GOTO1130 
1060 IF(Z<I>+(Z>O>BOTO1140 
1 070 GOSUB 1210:1 FQ-0GOTO 1130 

1 080 I FQ*M >RGOTO 1110 

1090 IFQ*M=RGOTO1120 

1100 GOTO1130 

1110 R=Q*MsT=Zs GOTO 1130 

1120 IFRND<3)«2T=Z 

1130 NEXTZ 

1 140 NEXTP: IFR< >0RETURN 

1150 FORP=1TO12:READZ«IFA<ZK>0GOTO1170 
1160 GOSUB1210: IFQO0GOTO1 180 

1170 NEXTP: GOTO 1190 
11B0 R=Q:T=Z: RETURN 



Abb. 7.2: Die Programmliste zu Reversi (Fortsetzung) 
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1190 PRINT«l,"Ich muss passen. " t IFY=1GQTO1330 

1200 Y=lsF=-F:GOSUB80: RETURN 

1210 N=Ts IFT=0N=Z 

1220 Q«0 : PR I NT034 , N : GOSUB620 : RETURN 

1230 DATA1, 8, 57, 64, 3, 6, 1,3, 24, 48, 8, 3, 59, 62, 1,3,1 

7,41,8,3 
1240 DATA1 1,14, 1,1, 23, 47, 9, 1,51, 54, 1,1, 18, 42, 8,1 

1250 DATA19, 22, 1,2, 27, 30, 1,2, 35, 38, 1,2, 43, 46, 1,2 

1260 DATA2, 16, 63, 49, 7, 56, 58, 9, 10, 15, 55, 50 

1270 I FL»1 RETURN 

1280 IFW-16OTO1300 

1290 PRINT&1 ,"Ein solcher Zug waere gegen 

die Spielregeln.":GOSUB80tGOSUB140sRETURN 

1 300 GQSUB 1 30 : GOSUB90 : A < Z > =F 

1310 FORX=1TO64:IFA(X)=0GOTO1380 

1320 NEXTX 

1330 GOSUB 1331: GOTO 1370 

1331 C=0tD-0!FQRX»lTO64t IFA<X>«1THENC=C+1 
1340 IFA<X)=-1THEND=D+1 

1350 NEXTX 

1360 GOSUB 140 i PR I NT«0," Wl HAT "|D*" STEINE 

" t PRINT" # HAT "»C;" STEINE" i RETURN 

1370 Y*=INKEY*i IFY*=" "THEN1370ELSECLSj END f 

1 380 GOSUB80 : RETURN 



Abb. 7.2: Die Programmliste zu Reversi (Fortsetzung) 



7.2 BORSENSPIEL 

Beim Borsenspiel konnen bis zu drei Personen mitspielen. Ziel des Spiels 
ist es, durch geschickten An- und Verkauf einer begrenzten Anzahl ver- 
fugbarer Aktien so schnell wie moglich zum Millionar zu werden. Hierbei 
steht es jedem Spieler frei, sich von der Bank Kredite zum Ankauf von 
Aktien geben zu lassen oder durch Verkaufe bei Hochnotierungen die 
notwendigen Gelder zur Erlangung des einmaligen Reichtums aufzubrin- 
gen. 

Sobald einmal jeder Spieler seine Transaktionen vorgenommen hat, 
andern sich die Tageskurse der Aktien nach Angebot und Nachfrage. 

Nach jeder Runde wird dem Spieler sein Vermogens- und Bargeldbe- 
stand angezeigt und eine Bilanz der durchgefuhrten Transaktionen 
erstellt. 
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British Petrol 108 DM 297 Stk 
Volksuaaen 196 DM 297 Stk 
Cheaie Hoechst 198 DH 297 Stk 
Bauer AG 198 DM 297 Stk 



Aktien von 


British Petrol : 


1 Stk 


flktien von 


Volkswagen 
Chenie Hoechst : 


1 Stk 


ftktien von 


1 Stk 


Aktien von 


Bayer AG 


1 Stk 


Ce^aatuert 


der Aktien : 


488 DM 


Barge Id 


: 


388 DN 


Schulden an die Bank 


8 DN 



GesaatveraoeSen 788 DH 

KftLLE, nehien Sie Transaktionen vor? 



Abb. 7.3: So sieht das Spielfeld im Bdrsenspiel aus 



9 ' BQERSENSPIEL, ANGEPAGST AUF COLOUR-GENIE 

10 CLEAR 1000 

20 DATA"Bntish Petrol "/'Volkswagen ","Che 

fflie Hoechst ", "Bayer AG 

30 S*="### Stk" 

40 K*= "####### DM" 

50 P=680 

60 P*=CHR*(30) 

70 M*~" ~## DM" 

80 B*=" +## DM" 

90 DM*»"#tt# DM " 

100 NN*=" 7. X" 

110 CLS 

120 PRINT S 121, "B E R S E N S P I E L" 

130 PRINT « 161, "=========-==-=-===■==-«" 

140 PRINT @ 240,"Wieviel Spieler <l-3)"; 

150 INPUT X ' 

160 IF X<1 OR X>3 THEN 140 

170 X=INT(X) 

180 CLS 

190 FOR 1=1 TO X 

200 PR I NT "Name von Spieler Nr." I; 

210 INPUT N*(I) 

220 N#<I)=LEFT*(N#<I) , 11) 

230 K ( I > =300 



Abb. 7.4: Die Programmliste zum Bdrsenspiel 
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240 NEXT I 

250 FOR 1=1 TO 4 

260 READ B*(I) 

270 W(I)-10a 

2B0 AU)=300-X 

290 FOR J=l TO X 

300 S(J, I)=l 

310 NEXT J, I 

320 ZX-ZX+1 

330 FOR I»l TO X 

340 CLS 

350 QOSUB 370 

360 GOTO 600 

370 FOR J=l TO 4 

380 PRINT 6* (J) ; USING DM*; W(J)j 

390 PRINT USING S*s A (J> ; sPRINT" "| 

400 IF M7.(J)=1 THEN PRINT USING M*j D7.(J)j ELSE 

IF M7. (J)=-l PRINT USING B*; D5C(J>; 

410 PRINT 

420 NEXT 

430 PRINT STRING* (40, " = "> 

440 FOR J=l TO 4 

450 PRINT"Aktien von ";G*(J>j , USING S*j S(I, 

460 PRINT Q*(I) 

470 NEXT J 

480 T < I ) *0 

490 FOR K=l TO 4 

500 T(I>=T(I)+S(I, K)#W(K> 

510 NEXT 

520 PRINT"Gesamtwert der Aktien i "p USING K*j 

T<I> 

530 PR I NT "Bar geld « "; USING K*p 

K(I) 

540 V(I)=V(I>-MV<I)*.01> 

550 H ( I ) =K ( I ) +T ( I > -V (I > 

560 PRINT"Schulden an die Bank : "; USING K*j 

V(I) 

570 PRINT STRING* (40,"-") 

580 PRINT"Gesamtvermoegen i "; USING K* 

; HM> 

590 RETURN 

600 PRINT e P, N*(I>;", nehmen Sie Transaktjonen 

vor?"pP* 

610 Z*=INKEY* 

620 IF Z*="" THEN 610 

630 IF Z*="N" OR Z*="n" THEN 1090 

640 IF Z*<>"J" AND Z*<>"j" THEN 610 

650 PRINT P, P*;"Wollen Sie Aktien kaufen?"; 

660 Z*=INKEY* 

670 IF Z*="" THEN 660 

680 IF Z*="n" OR Z*="N" THEN 880 

690 IF Z*<>"J" AND Z*<>"j" THEN 660 

700 PRINT S P, P*} 

710 G»0 

720 INPUT"Welche Gesel lscha-ft (1-4>"}G 

730 IF G<0 OR G>4 THEN 700 

740 G»INT<6) 
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730 


IF 8=0 THEN 880 


760 


PRINT e P, P*;"Wie viele Aktien von " 8*<G>" 






wollen Sie kaufen"; , 


770 


INPUT A 




780 


IF A<0 THEN 760 




790 


A=INT<A) 




600 


IF A>A(G) PRINT P, P*» "So viele Aktien sind 




nicht 




erhaeltlich! "; : FOR U=l TO 500 i NEXT U: GOTO 




760 


810 


IF W<6)#A>K(I)PRINT @ P, P*|"Sie haben nicht 




genuegend Kapital!"i FOR U=l TO 500: NEXT U 




t GOTO 760 




820 


8(1, G)=S(I, G)+A 




830 


A<G)=ACG>-A 




840 


K<I)=K<I)-W(G)*A 


850 


PRINT CHR*<28>; 




860 


GOSUB 370 




870 


GOTO 700 




880 


PRINT « P, P*j "Wollen Sie Aktien verkau-fan?" 




890 


Z*=INKEY* 




900 


IF Z*=" M THEN 890 




910 


IF Z*="N" OR Z*»"n" THEN 1090 




920 


IF Z*<>"J" AND Z*<>"j" THEN 890 




930 


PRINT « P, P*j 




940 


G«0 




950 


INPUT"Welche Geaellachaft <1-4)";G 




960 


IF G<0 OR G>4 THEN 930 




970 


G=INT(G> 




980 


IF Q-0 THEN 1090 




990 


PRINT P, P*;"Wie viele Aktien von " G*(G)" j 
wall en Sie ver kaufen"; 


• 


1000 


INPUT A 




1010 


IF A<0 THEN 990 




1020 


IF A>SCI, G> PRINT e P, P*;"Soviele Aktien ha | 
ben Sie nicht!": FOR U=l TO 500: NEXT Us GOT | 
990 


- 


1030 


S(I, G)=SU, G>-A 




1040 


A(G>=A<G)+A 




1050 


K(I)-KU>+W(G>»A 




1060 


PRINT CHR*(28); 




1070 


GOSUB 370 


1080 


GOTO 930 | 


1090 


PRINT P, P*; "Wollen Sie zur Bank?"; | 


1100 


Z*=INKEY* ' 


1110 


IF Z*»"" THEN 1100 | 


1120 


IF Z*="j" OR Z*="J" THEN 1400 ! 


1130 


IF Z*<>"N" AND Z*<)"n" THEN 1100 


1140 


NEXT I 


1150 


GOSUB 1660 


1160 


FOR 1=1 TO 4 


1170 


F=8 1 


1180 


M-10*RND<12)-60 


1190 


W < I > =W < I > +M 


1200 


IF W<I>>-10 THEN 1280 
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1210 
1220 
1230 
1240 
1250 



1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 



1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 

1420 
1430 
1440 
1450 
1460 
1470 

14B0 
1490 



1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
16190 
1610 
1620 



1630 
1640 
1650 
1660 
1670 
1680 



F=l 

M"XU)=1 
D7.<I) = 10-W(I> 
FOR J=l TO X 
IF 5<J, I)<>0 



THEN Y*=(10-W<I> )#S(J, 



I>: K<J) 
V<J>=V(J 



=K(J)-YilF K(J)<0 THEN K<J>=K(J>+Y: 

>+Y 

NEXT J 

W(I)=10 

IF W(I><=250 THEN 1360 

F«l 

M7.<I)=-1 

D% U ) -W < I > -250 

FOR J»l TO X 



)=V(J)-YsIF V<J><0 THEN K (J) =K (J) +ABSW ( J> ) : 

V<J)=0 
NEXT J 
W < I > =250 

IF F=0 THEN MX(I)=0 
NEXT I 
CLS 

GOTO 320 

IF VU)-0 THEN 1540 

PRINT P, P*;"Wollen Sie Kredit zurueckzahl 
en?"; 
Z*«INKEY* 

IF Z*=" M THEN 1420 
IF Z*="N" OR Z*«»n" THEN 1540 
IF Z*<>"J" AND Z*<>"j" THEN 1420 
PRINT P, P*j 
INPUT"Wieviel Geld wollen Si* zurueckzahl en" 

;z 

IF Z>V<I)OR Z<0 THEN 1460 

IF Z>K(I>PRINT P, P*;"Sie haben nicht genu 

egend Kapital"s FOR U=l TO 500: NEXT U: GOTO 

1460 
V(I)=V(I)-Z 
K(I)-K(I>-Z 
PRINT CHR* (28) ; 
GOSUB 370 

PRINT P, P*;"Wollen Sie Kredit nehmen?") 
Z*=INKEY* 
IF Z*="" THEN 1550 
IF Z*="N" OR Z*="n" THEN 1140 
IF Z*<>"J" AND Z*<>"j" THEN 1550 
PRINT P, P*j 

INPUT-Wieviel Kredit wall en Sie nehmen";Z 
IF Z<0 THEN 1590 
IF V(I)+Z>25000 PRINT 6 P, P*; "Soviel Kredit 

koennen Sie nicht nehmen'"i FOR LM1 TO 500: 

NEXT: GOTO 1140 
V ( I ) =V ( I ) +Z 
KU)=K(I)+Z 
GOTO 1140 
CLS 

PRINT"Bilanz nach" Z3C"Rundens " 
PRINT 
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1690 


PRINT"Spieler 


> 




1700 


FOR 1=1 TO X 






1710 


PRINTUSIN6 NN*;N*U); 




1720 


NEXT I 






1730 


PRINT 






1740 


PRINT STRING* (X»10+10, M = 


') 


1750 


PRINT"Aktienwert"; 




1760 


FOR 1=1 TO X 






1770 


PRINT USING K*; 


T(I)( 




1780 


NEXT 






1790 


PRINT 






1B00 


PRINT"Bargeld 






1810 


FOR I»l TO X 






1820 


PRINT USING K*; 


K<I)j 




1830 


NEXT 






1840 


PRINT 






1650 


PRINT-Schulden 


"; 




1860 


FOR 1=1 TO X 






1870 


PRINT USING K*i 


v(i); 




1880 


NEXT 






1890 


PRINT 






1900 


PRINT STRING* <X*10+10, "- 


") 


1910 


PRINT"Vermoegen 


T 




1920 


FOR 1-1 TO X 






1930 


PRINT USING K*; 


H<I>; 




1940 


NEXT ,_. 






1950 


PRINT 






1960 


MX=0 






1970 


FOR I»l TO X 






1980 


IF H(I)>MX THEN 


MX=HU)» 


MY=I 


1990 


NEXT 






2000 


IF MX< 100000 THEN PRINTi 
»;: INPUT Z*i RETURN 


PRINT" 


2010 


PRINT 






2020 


PRINT"Der Sieger ist: " 


;N*(MY) 


2030 


FOR 1=1 TO 2000 






2040 


NEXT 






2050 


END 







ENTER 
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Anhang /\ 

Treiberprogramm 

fiir die DEFFN-Funktion 

unter Kassettenbetrieb 



In Kapitel 3 wurde die Anwendung von Funktionen, die mit Hilfe der 
DEFFN-Anweisung definiert werden, behandelt. 

Der sich im Rechner befindende BASIC-Interpreter des Colour-Genies 
unterstiitzt die DEFFN-Anweisung genauso wie die ubrigen unter Kap. 6 
aufgefuhrten Anweisungen erst, wenn durch Einstecken des Disk- 
BASIC-Einschubs die entsprechenden Interpreter-Module zur Verfu- 
gung gestellt werden. 

Man kann solche Treiber-Module jedoch auch im RAM-Speicher eines 
Rechners ablegen. Man mufl dann nur sicherstellen, daB dieser RAM- 
Speicher „geschiitzt" wird, d. h. nicht mit irgendwelchen Daten iiber- 
schrieben werden darf . 

Das im folgenden vorgestellte Programm ladt sich in den Speicherbereich 
der frei programmierbaren Zeichen und startet sich danach selbst. Dem- 
zufolge diirfen Sie, solange Sie mit DEFFN arbeiten, keine frei program- 
mierbaren Zeichen definieren. 

Durch Betatigung der beiden RESET-Tasten konnen Sie jederzeit das 
Programmodul wieder desaktivieren. 



10 CLS 

20 PRINT"Mit Hilfe dieses Programms sind 
Colour — Genie Besitzer ohne Disketten- 
station in der Lage, unter Microsoft- 
BASIC mit der Funktion DEFFN zu ar- 
beiten, " 

30 PRINT"Ein dazu notwendiges Treiber- 
programm in Maschinensprache wird da- 
zu in den Speicher der -frei pro- 
grammierbaren Zeichen geladen, mit 
denen dann nicht mehr gearbeitet wer- 
den darf . " 



Abb. A.l: Das Treiberprogramm fiir DEFFN unter Kassettenbetrieb 
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40 


A=ScHF400: 'Anfang des Treibers 


1 ' 


50 


E=&HF528: Endadresse des Treibers 




60 


FOR X 


=A TO E 




70 


READ 


W:POKE X,W 




80 


SINSU+W 




90 


NEXT 


X 




100 


IF SU 


<> 37624 THEN PRINT" 






EINGABEFEHLER IN DEN DATA-ZEILEN" : STOP 




110 


PRINT 


:PRINT"Treiberprogramm eingebunden. " 




120 


FOR X 


<=1TO100:NEXTX 




130 


CALL 


F400 




140 


DATA 


33, 127 




150 


DATA 


244, 34, 86, 65, 33 




160 


DATA 


47, 244, 34, 92, 65 




170 


DATA 


195, 193, 29, 183, 194 




180 


DATA 


214, 9, 201, 215, 62 




190 


DATA 


128, 50, 220, 64, 162 




200 


DATA 


71, 205, 18, 3B, 24 




210 


DATA 


8, 62, 128, 50, 220 




220 


DATA 


64, 205, 13, 38, 5B 




230 


DATA 


175, 64, 254, 3, 201 




240 


DATA 


254, 190, 32, 25, 205 




250 


DATA 


20, 244, 205, 40, 40 




260 


DATA 


125, IB, 19, 124, 18 




270 


DATA 


62, 40, 190, 194, 5 




280 


DATA 


31, 215, 205, 13, 38 




290 


DATA 


62, 44, 24, 244, 254 




300 


DATA 


193, 194, 151, 25, 205 




310 


DATA 


96, 244, 213, 207, 213 




320 


DATA 


205, 2, 43, 227, 115 




330 


DATA 


35, 114, 225, 201, 17 




340 


DATA 


236, 67, 215, 208, 214 




350 


DATA 


48, 135, 131, 95, 215 




360 


DATA 


201, 70, 33, 94, 244 




370 


DATA 


229, 197, 205, 41, 244 




380 


DATA 


245, 204, 218, 41, 235 




390 


DATA 


33, 33, 65, 241, 201 




400 


DATA 


205, 20, 244, 245, 175 




410 


DATA 


245, 235, 126, 35, 102 




420 


DATA 


111, 124, 181, 202, 74 




430 


DATA 


30, 26, 254, 40, 32 




440 


DATA 


63, 207, 40, 213, 205 




450 


DATA 


33, 244, 193, 34, 235 




460 


DATA 


67, 32, 9, 213, 245 




470 


DATA 


197, 213, 205, 136, 40 




480 


DATA 


24, 16, 237, 68, 111 




490 


DATA 


38, 255, 57, 249, 237 




500 


DATA 


68, 213, 245, 197, 213 




510 


DATA 


205, 15, 244, 209, 42 




520 


DATA 


235, 67, 227, 215, 205 




530 


DATA 


43, 31, 209, 26, 190 




540 


DATA 


194, 151, 25, 235, 254 




550 


DATA 


41, 40, 4, 207, 44 




560 


DATA 


24, 197, 19, 215, 207 




570 


DATA 


213, 213, 205, 55, 35 




580 


DATA 


43, 215, 194, 151, 25 




590 


DATA 


225, 34, 235, 67, 231 




600 


DATA 


32, 50, 237, 91, 179 
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610 


DATA 


64, 42, 33, 65, 27 


620 


DATA 


27, 27, 223, 40, 5 


630 


DATA 


205, 67, 40, 24, 32 


640 


DATA 


237, 91, 211, 64, 205 


650 


DATA 


245, 41, 34, 179, 64 


660 


DATA 


1, 3, 0, 237, 176 


670 


DATA 


24, 15, 209, 254, 3 


680 


DATA 


40, 236, 33, 0, 


690 


DATA 


57, 235, 205, 15, 244 


700 


DATA 


235, 249, 241, 183, 32 


7t0 


DATA 


237, 231, 204, 194, 41 


720 


DATA 


42, 235, 67, 43, 215 


730 


DATA 


241, 195, 25, 40,0 



Abb. A J: Das Treiberprogramm fiir DEFFN unter Kassettenbetrieb (Fortsetzung) 
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Anhang ID 

Wichtige 
Speicheradressen 



In diesem Abschnitt sollte urspriinglich ein anderes Thema behandelt 
werden. Da6 hier schlieBlich doch die Adressen von Interpreterroutinen 
und vom Kommunikationsbereich behandelt werden, hat mehrere 
Grunde. Erstens kann es vorkommen, daB Ihnen irgendwann Software in 
die Hande fallt, in der iiber PEEK und POKE bestimmte Adressen dieser 
Art angesprochen werden, so daB ein Nachschlagewerk fur das Verstand- 
nis eines solchen Programms wiinschenswert ist. Zweitens werden auch in 
diesem Buch solche Adressen (wie im Beispiel „Ermittlung der gegenwar- 
tigen Cursor-Position auf dem Bildschirm") verwendet, zu denen man im 
BASIC-Handbuch keinerlei Dokumentation findet. 

Das liegt in erster Linie daran, daB die Daten, die sich in solchen 
Speicheradressen befinden, nicht fur die Nutzung durch Anwender, son- 
dern als Informationsbausteine fur den Interpreter vorgesehen sind. So 
mu6 der Interpreter z. B. wissen, mit welcher Adresse ein sich im Spei- 
cher befindendes BASIC-Programm beginnt, urn dieses abarbeiten zu 
konnen. I 

Fur Sie kann diese Information dann von Nutzen sein, wenn Sie solche 
rechnerinternen Vorgange nachvollziehen wollen. 

Im folgenden finden Sie eine Tabelle solcher Speicheradressen mit eini- 
gen Anwendungsbeispielen: 



Adresse HEX 


Adresse DEZ 


Bedeutung 


3800-380F 


14336-14351 


CRTC-Controller: Werte fur den LGR-Bildschirm 
(detaillierte Beschreibung siehe Handbuch 
SeitellSff.) 


3810-381F 


14352-14367 


CRTC-Controller: Werte fiir den FGR-Bildschirm 
bei P AL-Monitor 


3823-3832 


14371-14386 


CRTC-Controller: Werte fiir den LGR-Bildschirm 
(NTSC-Norm) 


3833-3842 


14387-14402 


CRTC-Controller: Werte fur den FGR-Bildschirm 
(NTSC-Norm) ' ' 


4020-4021 


16417-16417 


Cursoradresse 
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Adresse HEX 



Adresse DEZ Bedeutung 



4022 

4023 

4024 

4028 

4029 

4036 

4037 

4038 

4039 

403A 

403B 

403C 

403D 

4099 

409A 

409B 

409C 

409D 

40A2 

40A4-40A5 



40A6 

40B1-40B2 

40DA-40DB 

40EA 

40EC 

40EE 

42F0-430F 
4310-4312 

4313 

4314 
4390-439F 



16418 
16419 
16420 
16424 
16425 
16438 
16439 
16440 
16441 
16442 
16443 
16444 
16445 

16537 
16538 
16539 
15540 
16541 
16546 
16548-16549 



16550 

16561- 

16602- 

16618 

16620 

16622 

17138- 
16168- 

17171 

17172 
17296- 



16562 
16603 



17167 
17170 



17311 



Cursorzeichen (ASCII-Code) 

Letzter Farbencode im LGR-Modus 

Letztes gedriicktes Zeichen fur REPEAT 

Drucker: Anzahl der Zeilen pro Seite 

Drucker: Zeilenzahler 

Tastaturstatus fur Tastaturzeile F801 

Tastaturstatus fur Tastaturzeile F802 

Tastaturstatus fiir Tastaturzeile F804 

Tastaturstatus fiir Tastaturzeile F808 

Tastaturstatus fiir Tastaturzeile F810 

Tastaturstatus fur Tastaturzeile F820 

Tastaturstatus fiir Tastaturzeile F840 

Tastaturstatus fiir Tastaturzeile F880 

(s. S. 125 BASIC-Handbuch) 

INKEY-Zwischenspeicher 

Letzter Fehlercode fiir ERR 

Druckkopfposition 

Ausgabekennung: 0= Video, 1= Drucker, 2=Kass. 

Zeilenlange auf dem Bildschirm 

aktuelle Zeilennummer i 

Speicheradresse , von der ab ein Pr ogramm 

im Speicher abgelegt wurde (Berechnung: 

ADR=PEEK(&H40A4)+256XPEEK(&H40A5)) 

Position des Cursors in der Bildschirmzeile 

Letzter im BASIC verfugbarer Speicherplatz 

Aktuelle D ATA-Zeile fur RE AD- Anweisung 

Zeile, in der der letzte Fehler auftrat 

Zeilennummer fiir EDIT . 

Zeigt auf die Anweisung, bei deren Ausfiihrung der 

letzte Fehler auftrat. 

CRTC-Tabelle: wird von 3800 hierhin kopiert. 

Aufzeichnungsrate fur Programme und Daten 

aufKassette 

Code der FCOLOU R-Farbe , mit der gerade 

gezeichnet wird ' 

Letzter verwendeter SCALE-Faktor 

Farbencodetabelle 



Wie man einige der Funktionen sinnvoll in eigenen Programmen anwen- 
den kann, entnehmen Sie den Abbildungen B.l und B.2. 
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10 

20 

30 
40 



50 
60 



70 
80 

90 

100 

110 

120 
130 

140 
150 



CLS: CLEAR 1000 

PRINT"AUS DEN SPE I CHERADRESSEN KANN F0L _ 

GENDES ENTNQMMEN WERDENs " : PR I NT j PRINT 

P=PEEK ( &H4023 ) + 1 

PRINT"DIE ZULETZT VON IHNEN F|JER DEN LGR- 

8ILDSCHIRM ANGEWAEHLTE FARBE MATTE DEN 

FARBENCODE "sP;", ALSO COLOUR ... p 

P=PEEK<&H4024) 

PRINT"DAS ZULETZT VON IHNEN Aj«JF DER TAS- 

TATUR BETAETIGTE ZEICHEN HAT q en ASCII-CODE 

:";P 

P*PEEK(&H409A) | 

IF P=0 THEN A*='*KEIN FEHLER" ELSE A**"EIN FE 

HLER MIT DEM FEHLERCODE £RR« " -*-QjR* ( P ) 

PRINT" IM PROGRAMM TAUCHTE "lA*.- ftUF> « 

P=PEEK < WH40A4 ) +256*PEEK < SeH40A.5 ) 

PR I NT "DIESES PROGRAMM WURDE VQm RECHNER AB S 

PEICHERADRESSE ";P;" ABGELEGT . » 

P=PEEK<8<H40A6) I 

PRINT"DER CURSOR BEFINDET SICh z. ZT . JN bil d 

SCHIRMSPALTE M jP 

P=PEEK<ScH40Bl ) +256*PEEK <8<H40B3> 

PRINT"DER LETZTE Z.ZT. VERWEIMDBARE SPEICHERP 

LATZ HAT DIE ADRESSE ";P 



Abb. B.l: BestimmteSpeicheradressenkdnnen\ Vertvo ii e j n f ormat i onenentna i tertt ^ ie 
Sie nicht direkt ttber eine BASIC-Anweisung abrufen konnen 



0wm»-"f$ht^^<*^w-*&* ^^ 




3US DEH SPEICHERflDRESSEH KANN FOL 
GENDES ENTNONHEN yERDEH = 



DIE ZULETZT VOH IHNEN FUER DEN LGR 

BILDSCHIRN ANGEUAEHLJE FftR B £ HATTE DEH 

FARBENCODE 16 , ALSO COLqur 16 

DAS ZULETZT VON IHNEN AU F DER TAS 

TATUR BETAETIGTE ZEICHEH HAT DEH 

CODE 13 

IK PROGRAMM TAUCHTE EIN FEHLER MIT DEM F 

EHLERCODE ERR= 46 AUF . rt " LtK ■» ■ utn * 

DIESES PROGRAMM UURDE VQ|| RFCHNER 

AB SPEICHERADRESSE 2?5?7 ABGELEGT 

DER CURSOR BEFINDET SICH ZURZEIT 

IN BILDSCHIRMSPALTE ' 

DER LETZTE Z.ZT. VERUENDBARE 

SPEICHERPLATZ HAT DIE ADrEssE 325 11 



HAT DEH ASCIIA 



Abb. B.2: Bildschirrriausgabe zum Programm in Abb. B.l 
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c 



Im folgenden finden Sie einige Zeichensatze, die Sie rait Hilfe des im 
Kapitel 2 vorgestellten Hilfsprogramms in den Speicher fur frei definier- 
bare Zeichen laden konnen. An das Ende der DATA-Zeilen wird das 
Programm aus Abb. 2.17 angehangt und durch RUN gestartet. Die im 
folgenden vorgestellten Schrifttypen tragen die Namen 



O COUNT 

O BLIPPO-BLACK 

O GOTHIC 

O COLOSSAL 

O BYTE 

O STOP 

O PUDGY 

O PINOCCHIO 

O OUTLINE 
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32 REM SCHRIFTTYPE COUNT 

33 DATA 0,0,246,246,0,0,0,0 

34 DATA 0,160,192,0,160,192,0,0 

35 DATA 100,254,254,100,254,100,0,0 

36 DATA 40,100,246,222,76,40,0,0 

37 DATA 98,100,8,16,38,70,0,0 

38 DATA 92,254,254,162,138,76,0,0 

39 DATA 0,0,160,192,0,0,0,0 

40 DATA 0,56, 124,238, 19B,0, 0,0 

41 DATA 0,198,238,124,56,0,0,0 

42 DATA 84,56,254,254,56,84,0,0 

43 DATA 0,24,60,60,24,0,0,0 

44 DATA 0,0,5,6,0,0,0,0 

45 DATA 0,24,24,24,24,24,0,0 

46 DATA 0,6,6,0,0,0,0,0 

47 DATA 2,4,8,16,32,64,128,0 

48 DATA 126,254,254,162,194,252,0,0 

49 DATA 0,64,254,254,254,0,0,0 

50 DATA 70,142,254,250,98,2,0,0 

51 DATA 68,130,146,254,254,108,0,0 

52 DATA 56,72,254,254,254,8,0,0 

53 DATA 244,210,222,222,222,204,0,0 

54 DATA 124,254,254,146,146,76,0,0 

55 DATA 134,158,254,248,224,128,0,0 

56 DATA 108,254,254,146,146,108,0,0 

57 DATA 100,146,146,254,254,124,0,0 

58 DATA 0,54,54,0,0,0,0,0 

59 DATA 0,53,54,0,0,0,0,0 

60 DATA 0,16,56,124,238,198,0,0 

61 DATA 0,54,54,54,54,54,0,0 

62 DATA 195,231,126,60,16,0,0,0 

63 DATA 64,128,138,250,250,112,0,0 

64 DATA 124,254,146,170,154,114,0,0 

65 DATA 126,200,200,254,254,126,0,0 

66 DATA 254,254,254,146,146,108,0,0 

67 DATA 124,254,254,130,130,68,0,0 

68 DATA 254,254,254,130,130,124,0,0 

69 DATA 124,254,254,146,146,130,0,0 

70 DATA 126,254,254,144,144,128,0,0 

71 DATA 124,254,254,130,138,76,0,0 

72 DATA 254,254,254,16,16,254,0,0 

73 DATA 0,0,254,254,254,0,0,0 

74 DATA 0,4,2,254,254,252,0,0 

75 DATA 254,254,254,16,16,238,0,0 

76 DATA 254,254,254,2,2,2,0,0 

77 DATA 126,254,192,126,192,126,0,0 

78 DATA 126,254,254,128,128,126,0,0 

79 DATA 124,254,254,130,130,124,0,0 
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32 


REM SCHRIFTTYPE BLIPPO BLACK 




1 


33 


DATA 


0,0,0,242,0,0,0,0 : 


REM 


1 


34 


DATA 


0,0,224,0,0,224,0,0 : 


REM 


t * 


35 


DATA 


0,40,254,40,254,40,0,0 : 


REM 


# 


36 


DATA 


0,36,84,254,84,72,0,0 : 


REM 


* 


37 


DATA 


98,100,8,16,38,70,0,0 : 


REM 


v. 


38 


DATA 


0,12,114,138,100,10,0,0 : 


REM 


y. 


39 


DATA 


0,0,32,192,0,0,0,0 : 


REM 


■• 


40 


DATA 


0,0,56,68,130,0,0,0 : 


REM 


»,' 


41 


DATA 


0,0,130,68,56,0,0,0 : 


REM 


':■ 


42 


DATA 


0,84,56,254,56,84,0,0 : 


REM 


* 


43 


DATA 


0,16,16,124,16,16,0,0 : 


REM 


+ 


44 


DATA 


0,0,1,6,0,0,0,0 : 


REM 


, 


45 


DATA 


0,16,16,16,16,16,0,0 : 


REM 


- 


46 


DATA 


0,0,6,6,0,0,0,0 : 


REM 


. 


47 


DATA 


2,4,8,16,32,64,0,0 : 


REM 




48 


DATA 


0,124,138,146,162,124,0,0 : 


REM 





49 


DATA 


0,2,130,254,2,2,0,0 ! 


.REM 


1 


50 


DATA 


0,70,138,146,146,102,0,0 : 


REM 


^ 


51 


DATA 


0,68,130,146,146,108,0,0 : 


REM 


■«' 


52 


DATA 


0,8,24,40,74,254,10,0 I 


: REM 


4 


53 


DATA 


0,244,146,146,146,204,0,0 i 


REM 


5 


54 


DATA 


0,124,146,146,146,76,0,0 : 


(REM 


to 


55 


DATA 


0,192,128,158,160,192,0,0 


:REM 


7 


56 


DATA 


0,108,146,146,146,108,0,0 : 


:REM 


£j 


57 


DATA 


0,100,146,146,146,124,0,0 : 


iREM 


3 


58 


DATA 


0,0,0,36,0,0,0,0 : 


:REM 




59 


DATA 


0,0,1,38,0,0,0,0 : 


:REM 


j 


60 


DATA 


0,16,40,68,130,130,0,0 : 


:REM 


<!„ 


61 


DATA 


0,40,40,40,40,40,0,0 


:REM 


s= 


62 


DATA 


0,130,130,68,40,16,0,0 


:REM 


- : . 


63 


DATA 


0,64,128,138,144,96,0,0 


:REM 


""' 


64 


DATA 


124,146,170, 170,154,114,0,0 


:REM 


© 


65 


DATA 


2,62,82,144,82,62,2,0 


:REM 


H 


66 


DATA 


130,254, 146, 146, 146, lOB, 0,0 


:REM 


B 


67 


DATA 


0,124,130,130,130,68,0,0 


:REM 


c 


68 


DATA 


130,254,130,130,130,124,0,0 


:REM 


D 


69 


DATA 


130,254,146,186,130,198,0,0 


sREM 


E 


70 


DATA 


130,254,146,144,184,192,0,0 


:REM 


F 


71 


DATA 


0,124,130,130,146,92,16,0 


:REM 


Or 


72 


DATA 


130 , 254 , 146 , 16 , 1 46 , 254 , 130 , O 


:REM 


H 


73 


DATA 


O, 198, 130,254, 130, 198, 0,0 


:REM 


X 


74 


DATA 


8,12,2,2,130,252,128,0 


:REM 


■J 


75 


DATA 


130,254,18,40,68,130,130,0 


:REM 


K 


76 


DATA 


130,254,130,2,2,6,0,0 


:REM 


L 


77 


DATA 


130,254,66,48,66,254,130,0 


:REM 


11 


78 


DATA 


130,254,66,32,146,254,130,0 


:REM 


11 


79 


DATA 


0,124,130,130,130,124,0,0 


:REM 


c 


j 
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80 


DATA 


130,254,146,144,144,96,0,0 : 


I 
REM 


P 


81 


DATA 


0,124,130,138,132,122,0,0 : 


REM 


Q 


82 


DATA 


130,254,146,144,154,102,2,0 : 


REM 


R 


83 


DATA 


100,150,146,146,210,76,0,0 s 


REM 


S 


84 


DATA 


192,128,130,254,130,128,192,0s 


REM 


T 


85 


DATA 


128,252,130,2,130,252,128,0 : 


REM 


U 


86 


DATA 


128,248,132,2,132,248,128,0 ! 


REM 


V 


87 


DATA 


12B, 254, 4, 24, 4, 254, 128,0 : 


REM 


W 


88 


DATA 


130,198,40,16,40,198,130,0 : 


REM 


X 


89 


DATA 


128,224,146,14,146,224,128,0 : 


REM 


Y 


90 


DATA 


0,198,138,146,162,198,0,0 s 


REM 


*7 


91 


DATA 


0,254,130,130,130,0,0,0 : 


REM 


C 


92 


DATA 


64,32,16,8,4,2,0,0 : 


REM 




93 


DATA 


0,130,130,130,254,0,0,0 ! 


REM 


3 


94 


DATA 


0,32,64,128,64,32,0,0 : 


REM 


■■'- 


95 


DATA 


1,1,1,1,1,1,1,0 : 


REM 




96 


DATA 


0,0,128,64,32,0,0,0 : 


REM 




97 


DATA 


4,42,42,42,28,2,0,0 : 


REM 


a 


98 


DATA 


130,254,20,34,34,28,0,0 : 


REM 


to 


99 


DATA 


0,28,34,34,34,20,0,0 : 


(REM 


c 


100 


DATA 


0,28,34,34,20,254,130,0 


:REM 


ct 


101 


DATA 


0,28,42,42,42,26,0,0 


:REM 


© 


102 


DATA 


0,18,126,146,144,64,0,0 


:REM 


£ 


103 


DATA 


0,25,37,37,25,62,0,0 


sREM 


:3 


104 


DATA 


130,254,18,32,34,30,2,0 


iREM 


l-i 


105 


DATA 


0,0,34,190,2,0,0,0 


:REM 


i 


106 


DATA 


0,2,1,1,33,190,0,0 


:REM 


J 


107 


DATA 


130,254,4,8,52,34,0,0 


:REM 


k 


108 


DATA 


0,0,130,254,2,0,0,0 


:REM 


l 


109 


DATA 


34,62,32,62,32,30,0,0 


:REM 


JTl 


HO 


DATA 


34,62,16,32,32,30,0,0 


iREM 


T"l 


111 


DATA 


0,28,34,34,34,28,0,0 


:REM 


O 


112 


DATA 


33,63,24,36,36,24,0,0 


:REM 


F 


113 


DATA 


0,24,36,36,24,63,33,0 


:REM 


o[ 


114 


DATA 


34,62,18,32,32,16,0,0 


:REM 


r- 


115 


DATA 


0,18,42,42,42,36,0,0 


:REM 


s 


116 


DATA 


32,32,252,34,34,4,0,0 


sREM 


t 


117 


DATA 


32,60,34,2,4,62,34,0 


:REM 


tj: 


118 


DATA 


32,56,36,2,36,56,32,0 


:REM 


T.7 


119 


DATA 


32,62,2,28,2,62,32,0 


:REM 


w 


120 


DATA 


34,34,20,8,20,34,34,0 


sREM 


>c 


121 


DATA 


32,57,37,5,5,62,32,0 


sREM 


■y 


122 


DATA 


0,50,38,42,50,38,0,0 


:REM 


s 


123 


DATA 


0,16,108,130,130,130,0,0 


sREM 


.."" 


124 


DATA 


0,0,0, 255 ,0,0,0,0 


sREM 


1 


125 


DATA 


0,130,130,130,108,16,0,0 


:REM 


3 


126 


DATA 


0,64,128,64,128,0,0,0 


sREM 
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32 REM SCHRIFTTYPE GOTHIC 

33 DATA 0,0,0,242,0,0,0,0 

34 DATA 0,224,224,0,224,224,0,0 

35 DATA 0,40,254,40,254,40,0,0 

36 DATA 0,36,84,254,84,72,0,0 

37 DATA 98,100,8,16,38,70,0,0 
12,114,138,100,2,0,0 
0,224,224,0,0,0,0 
0,56,68,130,0,0,0 
0,130,68,56,0,0,0 
84,56,254,56,84,0,0 
16,16,124,16,16,0,0 
0,1,6,0,0,0,0 
16,16,16,16,16,0,0 
0,6,6,0,0,0,0 
4,8,16,32,64,0,0 
124,138,146,162,124,0,0 
34,66,254,2,2,0,0 
70,138,138,146,98,0,0 
68,130,146,146,108,0,0 
24,40,72,254,8,0,0 
244,146,146,146,140,0,0 
60,82,146,146,12,0,0 
192,128,158,160,192,0,0 
108,146,146,146,108,0,0 
96,146,146,148,120,0,0 
0,0,36,0,0,0,0 
0,1,38,0,0,0,0 
16,40,68,130,130,0,0 
40,40,40,40,40,0,0 
130,130,68,40,16,0,0 
64, 128, 13B, 144,96,0,0 
124,146,170,154,114,0,0 

65 DATA 66,156,168,72,40,28,2,0 

66 DATA 186,84,146,146,146,108,0,0 

67 DATA 56,68,186,130,162,68,0,0 

68 DATA 254,68,130,130,68,56,0,0 

69 DATA 186,84,146,146,130,68,0,0 

70 DATA 146,124,144,144,128,64,0,0 

71 DATA 56,76,148,148,149,95,0,0 

72 DATA 2,124,144,144,144,7B,0,0 

73 DATA 34,68,68, 124, 68, 6B, 136,0 

74 DATA 4, 10,2,2,4, 120, 12B,0 

75 DATA 146,124,16,40,68,130,0,0 

76 DATA 2,124,130,130,66,2,4,0 

77 DATA 146,124,128,124,128,124,0,0 

78 DATA 146,124,64,60,2,124,128,0 

79 DATA 56,68,186,130,130,68,56,0 
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DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 
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DATA 

DATA 




1,34,34,20,254,6,0 
u, ^8, 42, 42, 42, 24, 0,0 
16, 16, 126, 144, 144 ,64, 0,( 
0,24,37,37,25,62,0,0 
0,254,16,32,32,30,0,0 
0,0,34,190,2,0,0,0 
0,2,1,1,33,190,0,0 
0,254,4,8,20,34,0,0 
0,0,130,254,2,0,0,0 
32,62,32,62,32,30,0,0 
0,62,16,32,32,30,0,0 
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80 DATA 


254,254,216,216,248,112,0,0 : 


REM 


P 


81 DATA 


124,254,194,202,196,122,0,0 : 


REM 





82 DATA 


254,254,216,220,254,118,0,0 : 


REM 


R 


83 DATA 


100,246,214,214,222,76,0,0 : 


REM 


S 


84 DATA 


192,192,254,254,192,192,0,0 : 


REM 


T 


85 DATA 


252,254,6,6,254,252,0,0 : 


REM 


u 


86 DATA 


248,252,6,6,252,248,0,0 : 


REM 


U 


87 DATA 


254,254,4,24,4,254,254,0 : 


REM 


14 


88 DATA 


198,238,56,56,238,198,0,0 : 


REM 


X 


89 DATA 


224,240,30,30,240,224,0,0 : 


REM 


V 


90 DATA 


198,206,222,246,230,198,0,0 : 


REM 


z 


91 DATA 


254,254,198,198,198,0,0,0 : 


REM 


z 


92 DATA 


192,224,112,56,28,14,6,0 : 


REM 


■\ 


93 DATA 


198,198,198,254,254,0,0,0 : 


REM 


3 


94 DATA 


32,96,224,224,96,32,0,0 : 


REM 


jib a 


95 DATA 


J m O ■ -3 * W • O • O ■ O J \J 


REM 


■« 


96 DATA 


0,128,192,96,48,16,0,0 i 


REM 


V 


97 DATA 


4,46,42,42,62,30,0,0 : 


REM 


■a 


98 DATA 


254,254,34,34,62,28,0,0 


REM 


b 


99 DATA 


28,62,34,34,54,20,0,0 : 


■REM 


c 


lOO DATA 


28,62,34,34,254,254,0,0 : 


REM 


d 


lOl DATA 


28,62,42,42,58,16,0,0 : 


REM 


e 


102 DATA 


16,126,254,144,208,64,0,0 


REM 


e 


103 DATA 


24,61,37,37,63,30,0,0 


:REM 


9 


104 DATA 


254,254,32,32,62,30,0,0 


:REM 


ii 


105 DATA 


0,0,94,94,0,0,0,0 


:REM 


i 


106 DATA 


6,7,1,1,191,190,0,0 


:REM 


J 


107 DATA 


254, 254, B,2B, 54,34,0,0 


:REM 


Ui 


108 DATA 


, 130 , 254 , 254 ,2,0,0,0 


:REM 


1 


109 DATA 


62,62,32,62,62,32,30,0 


:REM 


111 


HO DATA 


62,62,32,32,62,30,0,0 


:REM 


n 


111 DATA 


28,62,34,34,62,28,0,0 


:REM 


o 


112 DATA 


63 , 63 , 36 , 36 , 60 , 24 , , O 


:REM 


f* 


113 DATA 


24,60,36,36,63,63,0,0 


:REM 


■q 


114 DATA 


62,62,32,32,48,16,0,0 


:REM 


r- 


115 DATA 


16,58,42,42,46,4,0,0 


:REM 


•s. 


116 DATA 


32,252,254,34,38,4,0,0 


:REM 


t; 


117 DATA 


60,62,2,2,62,62,0,0 


:REM 


LI 


118 DATA 


56,60,6,6,60,56,0,0 


:REM 


V 


119 DATA 


60,2,62,62,2,62,62,0 


:REM 


m 


120 DATA 


34,54,28,28,54,34,0,0 


sREM 


X 


121 DATA 


56,61,5,5,63,62,0,0 


:REM 


M 


122 DATA 


34,38,46,58,50,34,0,0 


:REM 


■X. 


123 DATA 


16,124,254,198,198,0,0,0 


:REM 


< 


124 DATA 


0,0,255,255,0,0,0,0 


:REM 


1 


125 DATA 


0,198,198,254,124,16,0,0 


:REM 


> 


126 DATA 


0,0, 16,32, 16,32,0,0 


:REM 
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32 REM SCHRIFTTYPE BYTE 

33 DATA 0,0,250,250,250,0,0,0 

34 DATA 0,208,224,0,208,224,0,0 

35 DATA 68,254,68,68,68,254,68,0 

36 DATA 0,116,84,214,84,92,0,0 

37 DATA 226,164,232,16,46,74,142,0 

38 DATA 0,110,146,138,68,2,0,0 

39 DATA 0,0,208,208,224,0,0,0 

40 DATA 0,56,124,198,130,0,0,0 

41 DATA 0,130,198,124,56,0,0,0 

42 DATA 68,40,254,40,68,0,0,0 

43 DATA 0,16,16,124,28,16,0,0 

44 DATA 0,0,13,13,14,0,0,0 

45 DATA 0,24,24,24,24,24,0,0 

46 DATA 0,0,14,14,14,0,0,0 

47 DATA 2,4,8,16,32,64,128,0 

48 DATA 254,142,146,162,254,0,0,0 

49 DATA 130,130,254,2,2,0,0,0 

50 DATA 158,158,146,146,146,242,0,0 

51 DATA 2, 146, 146, 15B, 254, 0,0,0 

52 DATA 248, B, 8, 14,254,8,0,0 

53 DATA 246,146,146,158,158,0,0,0 

54 DATA 254,158,146,146,222,0,0,0 

55 DATA 192,142,158,160,192,0,0,0 

56 DATA 254,158,146,146,254,0,0,0 

57 DATA 246,146,146,158,254,0,0,0 

58 DATA 0,0,108,108,108,0,0,0 

59 DATA 0,0,109,109,110,0,0,0 

60 DATA 16,16,40,68,130,0,0,0 

61 DATA 0,108,108,108,108,108,0,0 

62 DATA 130,68,40,16,16,0,0,0 

63 DATA 0,192,128,154,144,144,240,0 

64 DATA 0,0,224,160,160,224,0,0 

65 DATA 254,174,160,160,224,62,0,0 

66 DATA 254,174,162,162,226,62,0,0 

67 DATA 254,158,130,130,130,198,0,0 

68 DATA 254,158,130,130,130,124,0,0 

69 DATA 254,174,162,162,130,130,0,0 

70 DATA 254,174,160,160,160,128,0,0 

71 DATA 254,142,130,146,146,222,0,0 

72 DATA 254,46,32,32,32,254,0,0 

73 DATA 0,0,254,30,0,0,0,0 

74 DATA 4,2,2,2,30,252,0,0 

75 DATA 254,30,16,48,72,134,0,0 

76 DATA 254,30,2,2,2,2,0,0 

77 DATA 254,142,128,254,128,128,126, 

78 DATA 254,142,128,124,2,254,0,0 

79 DATA 254,142,130,130,130,254,0,0 
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REM SCHRIFTTYPE STOP 
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DATA 


0,0,246,246,0,0,0,0 : 
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0,224,192,0,224,192,0,0 : 
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DATA 
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DATA 
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DATA 
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DATA 
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REM 
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DATA 
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REM 
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DATA 
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REM 
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DATA 
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DATA 
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:REM 
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DATA 
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iREM 
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DATA 
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158,144,144,144,144,96,0,0 

124,130,129,129,129,125,0,0 

144,144,144,144,144,110,0,0 

0,2,194,34,18,12,0,0 

0,188,130,130,130,130,0,0 

252,2,2,2,2,254,0,0 

224,24,6,6,24,224,0,0 

240, 14, 192,48, 14,240,0,0 

0,130,68,56,68,130,0,0 

0,224,22,22,22,224,0,0 

130,134,138,146,162,130,0,0 

0,0,255,129,129,129,0,0 

192,224,16,8,7,3,0,0 

129,129,129,255,0,0,0,0 

0,8,24,40,24,8,0,0 

1,1,1,1,1,1,1,0 

0,0,192,224,0,0,0,0 

28,34,34,32,32,62,0,0 

254,2,34,34,34,28,0,0 
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28,34,34,34,2,254,0,0 

28,34,34,42,50,34,0,0 

0,126,144,144,144,0,0,0 

25,37,37,33,33,30,0,0 

254,0,32,32,32,30,0,0 

0,0,0,190,0,0,0,0 

0,0,1,1,190,0,0,0 

254,0,8,8,20,34,0,0 

0,0,0, 254 , O , O , O , O 

62,32,30,32,32,30,0,0 

62,32,32,32,32,30,0,0 

28,34,34,34,34,28,0,0 

63,32,34,34,34,28,0,0 

28,34,34,34,32,63,0,0 

0,30,32,32,32,0,0,0 

18,42,42,42,42,36,0,0 

0,252,34,34,34,0,0,0 

60,2,2,2,2,60,0,0 

0,56,4,2,4,56,0,0 

60 , 2 , 2 , 60 , 2 , 62 , O , O 

O , 34 , 20 , 8 , 20 , 34 , O , O 

57,5,35,34,36,24,0,0 

34,38,42,42,50,34,0,0 

72,252,252,0,252,72,0,0 

0,40,254,40,40,254,40,0 
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O, 
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32 REM SCHRIFTTYPE PUDBY 

33 DATA 0,0,0,242,0,0,0,0 
,224,224,0,224,224,0,0 
,40,254,40,254,40,0,0 
,36,84,254,84,72,0,0 

,100,8,16,38,70,0,0 
,12,114,138,100,2,0,0 
,0,224,224,0,0,0,0 
,0,56,124,254,0,0,0 
,0,254,124,56,0,0,0 
,84,56,254,56,84,0,0 
,16,16,124,16,16,0,0 
,0,1,6,0,0,0,0 
,48,48,48,48,48,0,0 
,0,6,6,0,0,0,0 
,4,8,16,32,64,0,0 
,124,138,146,162,124,0,0 
,34,66,254,2,2,0,0 

,70,138,138,146,98,0,0 

,6B, 130,146, 146, 108,0,0 

,24,40,72,254,8,0,0 

,244,146,146,146,140,0,0 

,60,82,146,146,12,0,0 

,192,128,158,160,192,0,0 

,108,146,146,146,108,0,0 

,96, 146, 146, 148, 120,0,0 

,0,0,36,0,0,0,0 

,0,1,38,0,0,0,0 

,16,56,124,254,0,0,0 

,108,108,108,108,108,0,0 

,0,254,124,56,16,0,0 

,64,128,138,144,96,0,0 

,124,146,170,154,114,0,0 

,126,254,240,254,126,0,0 

,254,254,254,254,108,0,0 

,124,254,254,198,68,0,0 

,254,254,254,254,124,0,0 

,254,254,254,214, 198, 0,0 

,254, 254, 254, 20B, 192,0,0 

,124,254,254,1^8,92,0,0 

,254,254,56,254,254,0,0 

,198,198,254,254,198,0,0 

,6,6,254,252,128,0,0 

,254,254,238,198,130,0,0 

,254,254,6,6,6,0,0 

,254,254,112,254,254,0,0 

,254,126,56,252,254,0,0 

,124,254,254,254,124,0,0 
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32 REM SCHRIFTTYPE PINOCCHIO 

33 DATA 0,0,246,246,0,0,0,0 

34 DATA 0,192,224,0,192,224,0,0 

35 DATA 0,40,254,40,254,40,0,0 

36 DATA 102,242,178,255,159,204,0,0 

37 DATA 196,200,16,32,76,140,0,0 

38 DATA 238,254,130,222,222,24,0,0 

39 DATA 0,192,224,0,0,0,0,0 

40 DATA 0,0,56,68,130,0,0,0 

41 DATA 0,0,130,68,56,0,0,0 

42 DATA 0,32,112,216,112,32,0,0 

43 DATA 0,16,16,124,16,16,0,0 

44 DATA 0,0,1,6,0,0,0,0 

45 DATA 0,16,16,16,16,16,0,0 

46 DATA 0,0,6,6,0,0,0,0 

47 DATA 2,4,8,16,32,64,0,0 

48 DATA 0,254,186,130,186,254,0,0 

49 DATA 0,0,222,158,254,0,0,0 

50 DATA 102,206,158,190,246,102,0,0 

51 DATA 198,198,146,146,254,254,0,0 

52 DATA 248,248,218,30,254,24,0,0 

53 DATA 246,246,178,178,190,156,0,0 

54 DATA 124,254,146,146,222,204,0,0 

55 DATA 224,198,142,158,248,224,0,0 

56 DATA 238,254,186,186,254,238,0,0 

57 DATA 102,246,146,146,254,254,0,0 

58 DATA 0,54,54,0,0,0,0,0 

59 DATA 0,54,55,0,0,0,0,0 

60 DATA 16,40,68,16,40,68,0,0 

61 DATA 0,40,40,40,40,40,0,0 

62 DATA 68,40,16,68,40,16,0,0 

63 DATA 0,192,219,155,248,248,0,0 

64 DATA 0,124,146,170,154,114,0,0 

65 DATA 126,214,208,208,214,126,0,0 

66 DATA 254,254,130,186,254,108,0,0 

67 DATA 124,254,130,130,238,108,0,0 

68 DATA 254,254,186,130,254,124,0,0 

69 DATA 254,254,146,146,214,214,0,0 

70 DATA 254,254,150,146,208,208,0,0 

71 DATA 124,254,130,138,238,108,0,0 

72 DATA 254,254,22,208,254,254,0,0 

73 DATA 0,0,254,254,254,0,0,0 

74 DATA 28,14,198,242,254,252,0,0 

75 DATA 254,254,214,16,254,238,0,0 

76 DATA 254,254,242,198,14,30,0,0 

77 DATA 254,198,240,240,198,254,0,0 

78 DATA 254,246,50,152,222,254,0,0 

79 DATA 0,124,222,198,246,124,0,0 
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REM i* 
REM a 
REM R 
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REM U 
REM 17 
REM W 
REM M 
REM a 
REM HE 
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REM 
REM 
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REM 
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REM 
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REM tt 
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32 REM SCHRIFTTYPE OUTLINE 

33 DATA 0,0,0,244,244,244,0,0 s 

34 DATA 0,208,224, 0,208,224,0,0 : 

35 DATA 0,40,124,40,40,124,40,0 : 

36 DATA 0,116,84,214,84,92,0,0 : 

37 DATA 66,164,72,16,36,74,132,0 : 

38 DATA 0,108,210,138,68,10,0,0 i 

39 DATA 0,0,0,208,224,0,0,0 : 

40 DATA 0,56,124,234,198,130,0,0 : 

41 DATA O, 130, 19B, 254, 124,56,0,0 : 

42 DATA 0,168,112,80,112,168,0,0 : 

43 DATA 0,16,16,124,16,16,0,0 ! 

44 DATA 0,0,0,13,14,0,0,0 i 

45 DATA 0,24,24,24,24,24,24,0 : 

46 DATA 0,0,0,12,12,0,0,0 : 

47 DATA 0,12,28,56,112,224,192,0 : 

48 DATA 124,254,154,178,254,124,0,0 : 

49 DATA 34,98,254,254,2,2,0,0 i 

50 DATA 66,198,142,154,242,98,0,0 : 

51 DATA 68,198,146,146,254,108,0,0 

52 DATA 24,56,104,200,254,254,0,0 i 

53 DATA 244,246,146,146,158,140,0,0 i 

54 DATA 60,126,210,146,158,12,0,0 

55 DATA 192,192,158,190,224,192,0,0 i 

56 DATA 108,254,146,146,254,108,0,0 i 

57 DATA 96,240,146,150,252,120,0,0 : 

58 DATA 0,0,0,108,108,0,0,0 

59 DATA 0,0,0,109,110,0,0,0 

60 DATA 0,16,56,124,254,0,0,0 

61 DATA 0,40,40,40,40,40,40,0 

62 DATA 0,0,254,124,56,16,0,0 

63 DATA 0,96,192,202,218,240,96,0 

64 DATA 28,63,63,94,191,63,28,0 

65 DATA 127,193,183,180,183,193,127,0 

66 DATA 255,129,173,173,173,211,110,0 

67 DATA 126,195,189,165,189,219,126,0 

68 DATA 255,129,189,189,219,102,60,0 

69 DATA 126,195,173,173,189,219,126,0 

70 DATA 127,193,175,168,184,208,112,0 

71 DATA 126,195,189,165,173,235,110,0 

72 DATA 255,129,239,40,239,129,255,0 

73 DATA 231,165,189,129,189,165,231,0 

74 DATA 14,11,13,5,253,131,254,0 

75 DATA 255,129,231,36,90,165,195,0 

76 DATA 255,129,253,5,5,5,7,0 

77 DATA 255,129,191,136,191,129,255,0 

78 DATA 255,129,223,40,247,129,255,0 

79 DATA 126,195,189,165,189,195,126,0 
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Alphabetische Liste der BASIC-Schliisselworter einschlieBlich Kurz- 
kommentaren 

Anweisung: ©-Symbol 

Beispiel: PRINT@10,"HALLO" 

Das @-Symbol ist eine Funktion, die ausschlieBlich in Verbindung mit 
der PRINT-Anweisung verwendet wird. Durch das Symbol wird 
bestimmt, daB die Ausgabe eines Textes auf dem Bildschirm ab einer 
bestimmten Bildschirmposition erfolgen soil. Zulassige Werte zur Kenn- 
zeichnung der Bildschirmposition liegen zwischen und 959, wobei der 
Wert die linke obere Bildschirmecke kennzeichnet, 959 die rechte 
untere (s. a. BASIC-Handbuch S. 126). 

Anweisung: ABS(W) 
Beispiel: X=ABS(-5) 

ABS ist eine numerische Funktion, die den Absolutbetrag der im Argu- 
ment vereinbarten Zahl liefert. In unserem Beispiel wird der Variablen X 
der Wert 5 zugewiesen. 

Anweisung: AND 

Beispiel: IF (X=2) AND (Y=4) THEN PRINT"X=2,Y=4" 

AND ist ein logischer Operator. 

Er kann verwendet werden, um einen zusammengesetzten Ausdruck 
innerhalb einer IF/THEN- Anweisung zu bilden und dessen Wahrheitsge- 
halt zu priifen. Im Beispiel wird nur dann der Text X=2,Y=4 ausgege- 
ben, wenn die Variable X den Wert 2 und die Variable Y den Wert 4 hat 
(siene dazu auch das Kapitel „Operatoren"). 

Anweisung: ASC(W) 

Beispiel: S$="A" : X=ASC(S$) 

ASC ist eine Zeichenkettenfunktion. Sie ermittelt den ASCII-Code des 
ersten im Argument angegebenen Textzeichens. 

Anweisung: ATN(W) 
Beispiel: X=ATN(-8) 

ATN ist eine numerische Funktion. Sie liefert den Arcustangens des in 
der Klammer vorgegebenen Arguments. (Der Arcustangens einer 
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Zahl X ist definiert als Winkel, dessen Tangens gleich x ist.) Das Ergebnis 
einer ATN-Funktion wird im BogenmaB angegeben. Die Umrechnung 
eines Winkels in Grad erhalten Sie, wenn Sie das Ergebnis der ATN- 
Funktion mit (180/3.1415927) multiplizieren. 

Anweisung: BGRD 
Beispiel: BGRD 

Mit BGRD wird im Grafik-Modus auf der FGR-Bildschirmebene die 
Farbe Magenta als Hintergrundfarbe definiert. 

Anweisung: CALL n 
Beispiel: CALL01C9 

Mit CALL n wird ein Maschinenunterprogramm aufgerufen, das sich im 
Rechnerspeicher befindet und die Startadresse n besitzt. Im Beispiel wird 
das Unterprogramm ausgefuhrt, zu dem der Rechner verzweigt, wenn er 
die Anweisung CLS vorfindet. 

Anweisung: CDBL 

Beispiel: PRINT CDBL (22/7) 

Durch die CDBL-Funktion wird der Rechner angewiesen, das Ergebnis 
einer Berechnung in doppelter Genauigkeit auszugeben oder weiterzu- 
verarbeiten. 

Anweisung: CHAR n ^ 

Beispiel: CHAR 1 

Durch CHAR wird einer der 4 Zeichensatze des Colour-Genie ange- 
wahlt. Das Argument n muB eine ganze Zahl zwischen 1 und 4 sein. 

Anweisung: CHR$(W) 
Beispiel: PRINT CHR$(230) 

CHR$ ist eine Zeichenkettenfunktion. CHR$ liefert als Ergebnis das 
Zeichen, das dem ASCII-Code des Arguments entspricht. Der Wert des 
Arguments muB eine ganze Zahl zwischen und 255 sein. 

Anweisung: CINT(W) 
Beispiel: PRINT CINT(-1.5) 

CINT (s. a. INT(W)) liefert den ganzzahligen Wert einer Zahl. Bei posi- 
tiven Zahlen sieht das so aus, daB einfach der Bruchteil der Zahl gestri- 
chen wird. Ist das Argument W der CINT-Funktion negativ, so liefert 
CINT die nachstniedrigere ganze Zahl. 

Der einzige Unterschied zwischen CINT und INT ist der, daB fur CINT 
als Argument nur Werte zwischen —32768 und +32767 zulassig sind. Fiir 
die INT-Funktion gilt diese Beschrankung nicht. 
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Anweisung: CIRCLE xl ,yl ,r 
Beispiel: CIRCLE 40,20,10 

CIRCLE ist ein Grafikbefehl, der das Zeichnen eines Kreises bewirkt. 
Kreise konnen nur auf der FGR-Bildschirmebene dargestellt werden 
(s. a. FGR). Vor der CIRCLE- Anweisung muB eine Bildschirmhinter- 
grundfarbe und eine Malfarbe vorgegeben werden (s. a. FCLS n und 
FCOLOUR n) . Die Argumente xl und yl kennzeichnen den Kreismittel- 
punkt (X- und Y-Koordinate). Fur xl sind Werte zwischen und 159, fiir 
yl Werte zwischen und 102 zulassig. 

Anweisung: CLEAR n 
Beispiel: CLEAR 2000 

CLEAR loscht zuerst alle Variablen. Dann wird so viel Speicherplatz (in 
Bytes) fur die Daten von Zeichenkettenvariablen reserviert, wie im Argu- 
ment n vorgegeben ist. 

Anweisung: CLOSE n (nur Disk-BASIC) 
Beispiel: CLOSE 1 

Mit der Anweisung CLOSE wird eine auf Diskette angelegte und mit 
OPEN eroffnete Datei geschlossen. Das Argument n kennzeichnet die 
Kanalnummer, unter der die Datei eroffnet wurde. Wird kein Argument 
angegeben, dann werden alle eroffneten Dateien geschlossen, 

Anweisung: CLS 
Beispiel: CLS 

Durch die CLS- Anweisung wird der LGR-Bildschirm (s. a. LGR) 
geloscht und der Cursor in die linke obere Bildschirmecke positioniert. 

Anweisung: COLOUR n 
Beispiel: COLOUR 1 

Durch die COLOUR- Anweisung wird die Vordergrundfarbe (das ist die 
Farbe, in der alle Folgezeichen auf dem LGR-Bildschirm ausgegeben 
werden sollen) angewahlt. Das Argument n kann Werte zwischen 1 und 
16 annehmen. 

Anweisung: CONT 
Beispiel: CONT 

Mit der CONT-Anweisung wird ein ablaufendes und durch Betatigung 
der BREAK-Taste oder durch eine STOP-Anweisung unterbrochenes 
Programm ab der Stelle fortgefuhrt, an der die Unterbrechung erfolgte. 
Die CONT-Anweisung wird nur dann vom Rechner ausgefiihrt, wenn 
zwischenzeitlich keine Veranderungen am Programm vorgenommen 
wurden. 



144 Mein Colour-Genie 



Anweisung: COS(W) 

Beispiel: PRINT COS(3. 1415927) 

Die Cosinus-Funktion liefert den Cosinus eines Wikels W. Der Winkel 
muB im BogenmaB angegeben werden. Soil die Eingabe im GradmaB 
erfolgen, lautet die Eingabe COS(W * 0.01745329) oder COS(W / 180 * 
3.1415927). 

Anweisung: CPOINT(xl,yl) 
Beispiel: PRINT CPOINT(40, 30) 

CPOINT ist eine Grafikanweisung. CPOINT priift, ob sich an der durch 
(xl,yl) vorgegebenen Bildschirmstelle auf der FGR-Bildschirmebene ein 
Bildpunkt befindet oder nicht. Ist dies der Fall, liefert CPOINT den Wert 
— 1. Befindet sich an der betreffenden Bildschirmstelle kein Bildpunkt, 
liefert CPOINT den Wert 0. 

Anweisung: DATA 

Beispiel: DATA 10,4,"ANTON" 

Die DAT A- Anweisung enthalt Datenelemente, die durch einen READ- 
Befehl in ein Programm ubernommen werden (s. a. RESTORE READ) . 

Anweisung: DEFDBL n 
Beispiel: DEFDBL A,B-D 

Durch DEFDBL werden alle in einem Programm erscheinenden Varia- 
blen, die den Anfangsbuchstaben n haben, als Variable mit doppelter 
Genauigkeit definiert. Variablen doppelter Genauigkeit werden vom 
Rechner mit 16 signifikanten Ziffern gespeichert. 

Anweisung: DEFFN f(x) (nur unter Disk-BASIC oder nach Laden 
des Maschinenprogramms aus dem Anhang A verfiig- 
bar). 

Beispiel: DEFFN F(X)=SQR(X) 

DEF FN definiert eine Funktion, die im Programm durch FN name(x) 
aufgerufen werden kann. 

Anweisung: DEFINTn 
Beispiel: DEFINT A,B-D 

Durch DEFINT werden alle in einem Programm erscheinenden Varia- 
blen, die den Anfangsbuchstaben n haben, als ganzzahlig definiert (s. a. 
DEFDBL). 

Anweisung: DEFSNG n 
Beispiel: DEFSNG A,B-D 
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Durch DEFSNG werden alle in einem Programm erscheinenden Varia- 
blen, die den Anfangsbuchstaben n haben, als Variablen mit einfacher 
Genauigkeit definiert (s. a. DEFDBL). 

Anweisung: DEFSTR n 
Beispiel: DEFSTR A,B-D 

Durch DEFSTR werden alle in einem Programm erscheinenden Varia- 
blen, die den Anfangsbuchstaben n haben, als Zeichenkettenvariablen 
definiert (s. a. DEFDBL). 

Anweisung: DELETE n 
Beispiel: DELETE 10,20-60 

Durch die DELETE- Anweisung werden einzelne Zeilen oder ganze Pro- 
grammteile geloscht. 

Anweisung: DIM 
Beispiel: DIM A(20) 

Durch die DIM- Anweisung wird die GroBe eines Variablenfeldes defi- 
niert. Eine DIM- Anweisung muG nur dann angegeben werden, wenn die 
Anzahl der Elemente eines Feldes grofier als 10 sein soil. Bei Zeichenket- 
tenfeldern mu6 vor der Dimensionierung durch eine CLEAR- Anweisung 
ausreichend Platz zur Verfugung gestellt werden. 

Anweisung: EDIT n 
Beispiel: EDIT 10 

Die EDIT-Anweisung ruft den Zeileneditor zur Korrektur von Pro- 
grammzeilen auf . 

Anweisung: END 

Beispiel: IF W= 100 THEN END 

Ende- Statement eines BASIC-Programms. Es kann weggelassen werden, 
wenn nachfolgend keine Unterprogramme oder Programmsegmente 
mehr vereinbart sind. 

Anweisung: ERL 
Beispiel: PRINT ERL 

Die ERL- Anweisung gibt die Programmzeile an, in der der Rechner auf 
einenFehlerstieB. 

Anweisung: ERR 

Beispiel: PRINT ERR/2+ 1 

Die ERR- Anweisung sollte ausschliefllich wie im Beispiel verwendet wer- 
den. Sie gibt dann die Fehlercodenummer an, die dem aufgetretenen Feh- 
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ler entspricht. Die auf Seite 47 des BASIC-Handbuchs auf gefiihrten Feh- 
lermeldungen sind dort zwar ohne Fehlercodenummer aufgefuhrt, stehen 
diesbeziiglich jedoch in der richtigen Reihenfolge. 

Anweisung: ERROR n 
Beispiel: ERROR 10 

Die ERROR-Anweisung dient zur Simulation eines Fehlers. Wird die 
ERROR- Anweisung eingesetzt, so verhalt sich der Rechner genauso, als 
ware der Fehler tatsachlich aufgetreten. 

Anweisung: EXP(W) 
Beispiel: PRINT EXP(4) 

Die EXP-Funktion ist eine numerische Funktion. Sie berechnet die 
Exponentialfunktion des Arguments X. 

Anweisung: FCLS n 
Beispiel: FCLS 1 

Die FCLS- Anweisung ist eine Grafikfunktion. Durch sie wird die Hinter- 
grundfarbe des hochauflosenden Bildschirms ausgewahlt. Zulassig fur 
das Argument n sind Werte zwischen 1 und 4. 

Anweisung: FCOLOUR n 
Beispiel: FCOLOUR 2 

Die FCOLOUR- Anweisung ist eine Grafikfunktion. Durch sie wird die 
Vordergrundfarbe des hochauflosenden Bildschirms definiert. Zulassig 
fur das Argument n sind Werte zwischen 1 und 4. Vorder- und Hinter- 
grundfarbe des FGR-Bildschirms diirfen nicht identisch sein (s. a. FCLS 
n). 

Anweisung: FGR 
Beispiel: FGR 

Durch die FGR- Anweisung wird auf den hochstauflosenden Grafikbild- 
schirm umgescnaltet. Diese Umschaltung kann auch iiber die Tastatur 
durch Betatigung der Tasten <CTRL> und <MOD SEL> erfolgen. 

Anweisung: FILLn 
Beispiel: — 

FILL n wurde durch FCLS n ersetzt. 

Anweisung: FIX 

Beispiel: PRINTFIX(-2.5) 
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FIX ist eine numerische Funktion. Sie bildet im Gegensatz zu INT den 
ganzzahligen Wert einer Zahl nicht durch Abrunden, sondern durch 
Abschneiden der Nachkommastellen. FIX(-2.5) ist -2, INT(-2.5) 
jedoch —3! 

Anweisung: FKEY 

Beispiel : FKEY1 = "PRINT®" 

Durch die FKEY- Anweisung konnen den 8 Funktionstasten (<F1> bis 
<F8>) neue Werte zugewiesen werden. Diese werden dann bei Betati- 
gung der jeweiligen Funktionstaste auf dem Bildschirm ausgegeben. 
Wenn Sie in einem Programm abfragen wollen, ob eine bestimmte Funk- 
tionstaste betatigt wurde, miissen Sie die Speicneradresse F808 abfragen. 
Bei Betatigung von <F1> steht an dieser Adresse eine 16, bei <F2> eine 
32, bei <F3> eine 64 und bei <F4> eine 128. Wurde zusatzlich noch die 
<Shift>-Taste betatigt, enthalt die Speicheradresse F880 eine 1, 

Anweisung: FOR . . . NEXT . . . STEP 
Beispiel: FOR X=l TO 5 STEP .5 

Schleif envereinbarung . 

Anweisung: GET k,n (nur unter Disk-BASIC verfiigbar) 
Beispiel: GET 1,4 

GET dient zum Lesen eines Satzes aus einer Direktzugriffsdatei. Das 
Argument k ist die Kanalnummer, unter der die Datei eroffnet wurde. n 
ist die Satznummer, die gelesen werden soil. 

Anweisung: GOSUB n 
Beispiel: GOSUB 1000 

Durch die GOSUB-Anweisung wird ein Unterprogramm angesprungen. 

Anweisung: GOTO n 
Beispiel: GOTO 100 

Durch die GOTO- Anweisung erfolgt eine unbedingte Verzweigung zu 
der durch n vorgegebenen Zeilennummer. 

Anweisung: IF . . . THEN . . . ELSE 
Beispiel: IF X= 10 THEN 20 ELSE 30 

Abfrage einer logischen Bedingung mit alternativer Ausfuhrung oder 
bedingten Spriingen. 

Anweisung: INKEY$ 
Beispiel: Y$=INKEY$ 
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INKEY$ ist eine Zeichenkettenfunktion. Trifft der Rechner auf ein 
INKEY$, fragt er fur Sekundenbruchteile die Tastatur ab, ob dort eine 
Taste betatigt wurde. Ist dies der Fall, wird der ASCII-Wert der betatig- 
ten Taste an die Zeichenkettenvariable iibergeben. 

Anweisung: INPUT w 
Beispiel: INPUT A 

Allgemeiner Befehl zur Eingabe von Daten. 

Anweisung: INSTR(n , wl , w2) 

Beispiel: X=INSTR("3,"AABBBC'7'B") 

INSTR ist eine Zeichenkettenfunktion. Sie testet eine Zeichenkette auf 
das Vorhandensein eines vorgegebenen Textelements. Im Beispiel wird 
die Stelle in der Zeichenkette AABBBC gesucht, an der der Buchstabe B 
zum drittenmal auftritt. 

Anweisung: INT 

Beispiel: PRINT INT(-2.5) 

INT ist eine numerische Funktion. Sie bildet aus einer gebrochenen Zahl 
einen ganzzahligen Wert mit vorzeichenabhangiger Rundung. (Vgl. auch 
CINT, FIX). 

Anweisung: JOY(n) 
Beispiel: PRINT JOY(l) 

JOY ermittelt einen der Potentiometerstellung der Joysticks proportiona- 
len Zahlenwert zwischen und 255. 

Anweisung: KEYPAD (n) 
Beispiel: PRINT KEYPAD(l) 

KEYPAD ermoglicht ein indiziertes Ansprechen der Joystick-Tastatu- 
ren. 

Anweisung: LEFT$ (s$,n) 

Beispiel: PRINT LEFTS ("123", 2) 

LEFTS ist eine Zeichenkettenfunktion. Eine Zeichenkette S wird links- 
biindig nach dem n-ten Zeichen „abgeschnitten". 

Anweisung: LET 
Beispiel: LETX=4 

Durch die LET-Anweisung wird die Wertzuweisung an eine Variable 
besonders betont. 
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Anweisung: LSET (Disk-BASIO Anweisung) 
Beispiel: LSETA$=B$ 

Durch die LSET- Anweisung wird eine Zeichenkette linksbiindig in einer 
anderen abgelegt. 

Anweisung: LEN(s$) 
Beispiel: L=LEN(S$) 

LEN ist eine Zeichenkettenfunktion. Das Ergebnis ist die Anzahl der im 
Argument enthaltenen Zeichen. 



Anweisung: 
Beispiel: 



LGR 
LGR 



Durch die LGR-Anweisung wird vom FGR-Bildschirm fur hochauflo- 
sende Grafik auf den Textbildschirm umgeschaltet. 

Anweisung: LINE INPUT (Nur unter Disk-BASIC verfugbar) 
Beispiel: LINE INPUT A$ 

LINE INPUT ist ein Befehl zur Eingabe beliebiger Tastaturzeichen (im 
Gegensatz zu INPUT konnen hierzu auch Zeichen wie : mid , gehoren). 



Anweisung: 
Beispiel: 



LIST 
LIST 10-50 



LIST erstellt ein Programlisting auf dem Bildschirm. 



Anweisung: 
Beispiel: 



LLIST 
LLIST 10-50 



LLIST gibt ein Programmlisting auf einem angeschlossenen Drucker aus. 



MEM 
PRINT MEM 



Anweisung: 
Beispiel: 

MEM ermittelt den fur den Anwender verbleibenden Speicherumfang in 
Bytes. 

Anweisung: MID$(S$,x,n) 

Beispiel: A$=MID$("ANFANG",3,2) 

MID$ ist eine Zeichenkettenfunktion zur Trennung einzelner oder meh- 
rerer Zeichen aus Textelementen. 



Anweisung: 
Beispiel: 



NAME 
NAME 



NAME ist eine Anweisung, die ahnlich wie USR vom Anwender iiber 
bestimmte Speicheradressen mit Daten versehen wird. Die Werte, die in 
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diese Speicheradressen geladen werden, werden dann bei Aufruf von 
NAME vom Rechner als Startadresse eines Unterprogramms interpre- 
tiert. NAME wird iiber die Adressen 16782 und 16783 mit Daten versorgt 
(s. a. USR). 



Anweisung: 
Beispiel: 



NBGRD 
NBGRD 



Durch die NBGRD- Anweisung wird eine durch FCLS oder BGRD ange- 
wahlte Hintergrundfarbe des FGR-Bildschirms wieder abgeschaltet (s. a. 
BGRD, FCLS n). 



Anweisung: 
Beispiel: 



NEW 
NEW 



NEW loscht ein sich im Rechnerspeicher befindendes Programm. 



Anweisung: 
Beispiel: 



NOT 

IF NOT(A=4) THEN PRINT "A<>4' 



NOT ist wie AND und OR ein logischer Operator. NOT verandert den 

logischen Ausdruck in einer IF-Anweisung. Es liefert den Wert eines 

Ausdrucks folgendermaBen modifiziert: 

War der logische Ausdruck wahr, wird er durch NOT falsch. 

War der logische Ausdruck falsch, wird er durch NOT wahr. 

Anweisung: NPLOT xl ,yl (TO x2 ,y2) 
Beispiel: NPLOT 10,10 (TO 20,20) 

NPLOT loscht einen Punkt oder eine Linie auf dem FGR-Bildschirm, die 
zuvor durch eine PLOT- Anweisung gezeichnet wurde, 

Anweisung: NSHAPE x,y 
Beispiel: NSHAPE 10,10 

Eine mit Hilfe der SHAPE- Anweisung auf dem FGR-Bildschirm erstellte 
Figur wird geloscht. 



Anweisung: 
Beispiel: 



ON...GOSUB 

ON X GOSUB 100,200,300 



Ergebnisabhangiger Sprung zu Unterprogrammen. 



Anweisung: 
Beispiel: 



ON... GOTO 

ON X GOTO 100,200,300 



Ergebnisabhangiger Sprung. 

Anweisung: OPEN (nur Disk-BASIC) 
Beispiel: OPEN"0" ,1 ,"TEST" 
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Eroffnen einer Datei auf Diskette. 

Anweisung: PAINT x,y,fl,f2 
Beispiel: PAINT 10,10,3,2 

PAINT ist eine Grafikanweisung zum farbigen Ausmalen von Flachen auf 
dem FGR-Bildschirm. Ausgemalt werden konnen nur in sich geschlos- 
sene Flachen. Beim Ausmalen einer Flache sucht der Rechner beim 
Zeichnen jeder einzelnen Linie nach einer oder mehreren Begrenzungs- 
farben, bei denen das farbige Ausfiillen enden soil. 



Anweisung: 
Beispiel: 



PEEK 

PRINT PEEK(IOOOO) 



PEEK ist eine Anweisung zum Auslesen des AdreBinhalts einer bestimm- 
ten Speicherstelle. 



Anweisung: 
Beispiel: 



PLAY 

PLAY (1,4,1,15) 



PLAY ist ein Befehl zur Erzeugung musikalischer Klange fiber einen spe- 
ziellen Baustein zur Tonerzeugung. 

Anweisung: PLOT xl ,y 1 <TO x2,y2> 
Beispiel: PLOT 10,10 TO 20,20 

PLOT ist ein Grafikbefehl, mit dem Punkte oder Linien auf dem FGR- 
Bildschirm erstellt werden konnen (s. a. NPLOT, FCOLOUR). 

Anweisung: POKE ad,w 
Beispiel: POKE HF400,255 

POKE ist ein Befehl zum Laden einer Speicheradresse ad mit einem Wert 
w (s. a. PEEK). 

Anweisung: POS(x) 
Beispiel: PRINT POS(0) 

POS ermittelt die relative horizontale Position des Cursors auf dem Bild- 
schirm. Das Argument x ist eine sog. „Dummyvariable" und ohne Bedeu- 
tung, mu6 aber beim Aufruf der Funktion mit angegeben werden. 



Anweisung: 
Beispiel: 



PRINT 
PRINT"HALLO" 



PRINT ist ein Befehl zur Ausgabe von Daten auf den Bildschirm, auf 
Kassette oder auf Diskette. 
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Anweisung: PRINT USING 

Beispiel: PRINT USING"###.##DM";M 

PRINT USING ist ein Befehl zur formatierten Ausgabe von Daten auf 
dem Bildschirm. Die hinter dem USING stehende Zeichenkette gibt an, 
in welcher Form die Ausgabe von Daten erfolgen soil. 

Anweisung: PUT (nur Disk-BASIC) 
Beispiel: PUT 1,4 

In einer unter Disk-BASIC eroffente Direktzugriffsdatei wird durch PUT 
ein Datensatz mit einer vorgegebenen Satznummer abgelegt (s. a. GET). 

Anweisung: RANDOM 
Beispiel: RANDOM 

Die Anweisung RANDOM bewirkt, daB das sich im Microsoft-BASIC 
befindende Programmelement, das fiir die Erzeugung von Zufallszahlen 
zustandig ist, mit neuen Werten versehen wird. Dadurch wird die „Zufal- 
ligkeit" von Zufallszahlen erhoht. 

Anweisung: READ 
Beispiel: READ W,W1 

READ ist ein Einlesebefehl fur Daten, die innerhalb eines Programms 
unter DATA-Anweisungen abgelegt sind. 

Anweisung: REM 

Beispiel: REM hier konnen Anmerkungen innerhalb des Pro- 

gramms stehen 

Steht am Anfang einer Programmzeile die Anweisung REM oder das Zei- 
chen <'>, wird alles, was dahinter steht, vom Rechner bei der 
Programmausfuhrung iiberlesen. 

Anweisung: RENUM 
Beispiel: RENUM 10,1 

RENUM ist ein Befehl zum Umnumerieren von Programmzeilen. 

Anweisung: RESTORE 
Beispiel: RESTORE 

Die Anweisung RESTORE bewirkt, dafc der Zeiger fiir die READ- 
Anweisung auf das erste Datenelement in der ersten DATA- Anweisung 
zuriickgesetzt wird. 

Anweisung: RESUME n 
Beispiel: RESUME 10 
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Wurde nach Auftreten eines Programmfehlers durch eine ON ERROR 
GOTO-Routine zu einer bestimmten Zeilennummer verzweigt, kann der 
Rechner dort durch eine RESUME- Anweisung angewiesen werden, die 
Programmausfiihrung ab einer bestimmten Zeilennummer n wiederauf- 
zunehmen. 



Anweisung: 
Beispiel: 



RETURN 
RETURN 



RETURN ist eine Anweisung an den Rechner, von einem Unterpro- 
gramm, zu dem durch eine GOSUB-Anweisung verzweigt wurde, wieder 
ins Hauptprogramm zuriickverzweigen. i 



Anweisung: RIGHT$(S$,n) 

Beispiel: PRINTRIGHT$("123",2) 

Eine Zeichenkette S$ wird hinter dem n-ten Zeichen von rechts „abge- 
schnitten" (s. a. LEFT$, MID$). 

Anweisung: RND(x) 

Beispiel: PRINT RND(0),RND(100) 

Die RND-Funktion dient zur Erzeugung einer Zufallszahl zwischen und 
dem vorgegebenen Argument. Ist dieses ungleich 0, werden iiber den 
Zufallsgenerator ausschlieBlich ganzzahlige Werte erzeugt. Ist das Argu- 
ment x gleich 0, werden Gleitkommazahlen ausgegeben, deren Werte 
zwischen und 1 liegen. 

Anweisung: SCALE n 
Beispiel: SCALE 2 

SCALE dient zur Festlegung des GroBenfaktors, mit der eine in der 
Shapetabelle des Colour-Genie (Adresse 7F00H bei 16k-Geraten, 
Adresse BF00H bei 32k-Geraten) definierte Figur ausgegeben werden 
soil (s. a. SHAPE, NSHAPE). 



Anweisung: 
Beispiel: 



SIN(x) 

PRINT SIN(3. 1415927/4) 



SIN ist eine mathematische Funktion. Sie berechnet den Sinus eines 
Arguments, das im BogenmaB vorgegeben werden mufi (s. a. COS, 

TAN,ATN). 



Anweisung: 
Beispiel: 



SOUND 
SOUND 4,3 



SOUND ist eine Anweisung zur Steuerung des Tongeneratorbausteins im 
Colour-Genie. Mit SOUND werden Spezialtoneffekte erzeugt. 
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Anweisung: SQR(x) 
Beispiel: PRINT SQR(2) 

SQR ist eine Funktion zur Berechnung der Quadratwurzel des durch x 
vorgegebenen Arguments. 

Anweisung: STOP 

Beispiel: IF Z= 10 THEN STOP 

Mit der STOP- Anweisung kann eine Unterbrechung eines Programms an 
einer vorbestimmten Stelle angegeben werden. 

Anweisung: STRINGS (n,w) 
Beispiel: PRINT STRING (30,65) 

Durch die String- Anweisung wird eine Zeichenkette erzeugt, die n-mal 
das Zeichen mit dem ASCII-Code w enthalt. 

Anweisung: STR$(x) 
Beispiel: A=STR$(4.5) 

STR$ ist eine Konvertierungsfunktion. Aus dem Wert des Arguments x 
wird eine Zeichenkette gleichen Inhalts gebildet. 

Anweisung: TAN(x) 

Beispiel: PRINT TAN(3. 1415927/4) 

Bei Vorgabe eines Winkels x im BogenmaB liefert die TAN-Funktion den 
Tangens des entsprechenden Winkels (s. a. SIN, COS, ATN). 

Anweisung: TRON 
Beispiel: TRON:RUN 

Jede Programmzeile, die der Rechner bei Ausfuhrung eines Programms 
durchlauft, wird auf dem Bildschirm protokolliert. 

Anweisung: TROFF 
Beispiel: TROFF 

Die durch TRON eingeschaltete Protokollierung wird abgeschaltet (s. a. 
TRON). | 

Anweisung: USR(x) 
Beispiel: X=USR(0) 

Zu einer Maschinenunterroutine, deren Startadresse durch den Inhalt der 
beiden Adressen 16526 und 16527 vorgegeben ist, wird von BASIC aus 
verzweigt. Das Argument x wird dem HL-Registerpaar iibergeben (s. a. 
NAME). 
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Anweisung: VAL(s$) 

Beispiel: W=VAL("3.4") ' 

VAL ist eine Konvertierungsfunktion. Eine Zeichenkette, deren Ziffern- 
folge eine Zahl reprasentiert, wird in ihr numerisches Aquivalent umge- 
wandelt. 

Anweisung: VARPTR 

Beispiel: W=4:PRINT VARPTR(W) 

Die VARPTR-Funktion liefert Informationen uher Typ und Lange einer 
Variablen, sowie Hinweise auf die Adresse, wo die zu der Variablen 
gehorenden Daten im Speicher abgelegt wurden. 
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Stichwortverzeichnis 



ABS 




141 


DIM 


56, 145 


AND 


50 


,141 


Datumcheckroutine 


75 


ASC 




141 


Definieren von Zeichen 


26 


ASCII-Code 




17 


Doppelte Genauigkeit 


44 


ATN 
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EDIT 


145 


Operatoren 




54 


END 


145 
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145 
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68 


ERR 
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ERROR 


146 
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41 


EXP 
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146 
95 


BGRD 
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Einfache Genauigkeit 


44 
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37 
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77 
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87 
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35 
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19 
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52 
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11 
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47 
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17 
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43 


FCOLOUR 
FGR 
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66 
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CLOSE 
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147 
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43 
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98 
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DATA 
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DEFDBL 
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INPUT 
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64 


,144 


INSTR 
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43 
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Index 


58 
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9 


DELETE 
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12 
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89 
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EINFUHRUNG IN PASCAL UND UCSD/PASCAL 

von Rodnay Zaks — das Buch fiir jeden, der die Programmiersprache PASCAL ler- 
nen mochte. Vorkenntnisse in Computerprogrammierung werden nicht vorausge- 
setzt. Eine schrittweise Einfiihrung mit vielen Ubungen und Beispielen. 535 Seiten, 
130 Abbildungen, Ref .Nr. : 3004 (1982) 

DAS PASCAL HANDBUCH 

von Jacques Tiberghien - ein Worterbuch mit jeder Pascal- Anweisung und jedem 
Symbol, reservierten Wort, Bezeichner und Operator, fur beinahe alle bekannten 
Pascal- Versionen. 480 Seiten, 270 Abbildungen, Format 23 x 18 cm, Ref.Nr.: 3005 
(1982) 

PROGRAMMIERUNG DES Z80 

von Rodnay Zaks — ein kompletter Lehrgang in der Programmierung des Z80 Mikro- 
prozessors und eine griindliche Einfiihrung in die Maschinensprache. 608 Seiten, 176 
Abbildungen, Format DIN A5, Ref.Nr.: 3006 (1982) 

PASCAL PROGRAMME - MATHEMATIK, STATISTIK, INFORMATIK 
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Pascal-Benutzer mit technischen Anwendungen. 398 Seiten, 120 Abbildungen, For- 
mat 23 x 18 cm, Ref.Nr.: 3007 (1982) 

BASIC COMPUTER SPIELE/Band 1 

herausgegeben von David H. Ahl — die besten Mikrocomputerspiele aus der Zeit- 
schrift „Creative Computing" in deutscher Fassung mit Probelauf und Programmli- 
sting. 208 Seiten, 56 Abbildungen, Ref.Nr. 3009 

I 
BASIC COMPUTER SPIELE/Band 2 

herausgegeben von David H. Ahl — 84 weitere Mikrocomputerspiele aus „ Creative 
Computing". Alle in Microsoft-BASIC geschrieben mit Listing und Probelauf. 224 
Seiten, 61 Abbildungen, Ref.Nr. : 3010 

VORSICHT! Computer brauchen Pflege I 

von Rodnay Zaks — das Buch, das Ihnen die Handhabung eines Computersystems 
erklart — vor allem, was Sie damit nicht machen sollten. Allgemeingultige Regeln fur 
die pflegliche Behandlung Ihres Systems. 240 Seiten, 96 Abbildungen, Best. -Nr. : 3013 
(1983) , 

BASIC PROGRAMME - MATHEMATIK, STATISTIK, INFORMATIK 

von Alan Miller — eine Bibliothek von Programmen zu den wichtigsten Problemlo- 
sungen mit numerischen Verfahren, alle in BASIC geschrieben, mit Musterlauf und 
Programmlisting. 352 Seiten, 147 Abbildungen, Best.-Nr.: 3015 (1983) 

EINFUHRUNG IN DIE TEXTVERARBEITUNG 

von Hal Glatzer — woraus eine Textverarbeitungsanlage besteht, wie man sie nutzen 
kann und wozu sie fahig ist. Beispiele verschiedener Anwendungen und Kriterien fiir 
den Kauf eines Systems. 248 Seiten, 67 Abbildungen, Best.-Nr. 3018 (1983) 



EINFUHRUNG IN WORDSTAR 

von Arthur Naiman — eine klar gegliederte Einfiihrung, die aufzeigt, wie das Textbe- 
arbeitungsprogramm WORDSTAR funktioniert, was man damit tun kann und wie es 
eingesetzt wird. 240 Seiten, 36 Abbildungen, Best-Nr.: 3019 (1983) 

PLANEN UND ENTSCHEIDEN MIT BASIC 

von X. T. Bui — eine Sammlung von interaktiven, kommerziell-orientierten BASIC- 
Programmen fur Management- und Planungsentscheidungen. 200 Seiten, 53 Abbil- 
dungen, Best.-Nr.: 3025 (1983) 

BASIC FUR DEN KAUFMANN 

von D. Hergert — das BASIC-Buch fur Studenten und Praktiker im kaufmannischen 
Bereich. Enthalt Anwendungsbeispiele fur Verkaufs- und Finanzberichte, Grafiken, 
Absctireibungen u.v.m. 208 Seiten, 85 Abbildungen, Best.-Nr.: 3026 (1983) 

ERFOLG MTT VisiCalc 

von D. Hergert — umfassende Einfiihrung in VisiCalc und seine Anwendung. Zeigt 

Ihnen u. a.: Aufstellung eines Verteilungsbogens, Benutzung von VisiCalc-Formeln, 

Verwendung der DIF-Datei-Funktion. 224 Seiten, 58 Abbildungen, Best.-Nr.: 3030 

(1983) 

PLANEN, KALKULIEREN, KONTROLLIEREN MIT BASIC-TASCHEN- 
RECHNERN 

von P. Ickenroth — prasentiert eine Reihe von direkt anwendbaren BASIC-Program- 
men fur zahlreiche kaufmannische Berechnungen mit Ihrem B ASIC-Taschenrechner. 
144 Seiten, 48 Abbildungen, Best.-Nr.: 3032 (1983) 

MEIN ERSTES BASIC PROGRAMM 

von Rodnay Zaks — das Buch fur Einsteiger! Viele farbige Illustrationen und leicht- 
verstandliche Diagramme bringen SpaS am Lernen. In wenigen Stunden schreiben Sie 
Ihr erstes nutzliches Programm. 208 Seiten, illustriert, Best.-Nr.: 3033 (1983) 

Z80 ANWENDUNGEN ' l 

von J. W. Coffron — vermittelt alle notigen Anweisungen, um Peripherie-Bausteine 
mit dem Z80 zu steuern und individuelle Hardware -Losungen zu realisieren. Ca. 320 
Seiten, ca. 200 Abbildungen, Best.-Nr.: 3037 (September 1984) 

COMMODORE 64 - LEICHT GEMACHT 

von J. Kascmer — fuhrt Sie schnell in die Bedienung von Tastatur , Bildschirm und Dis- 
kettenlaufwerken ein, macht Sie zum BASIC-Programmierer Ihres C64! 176 Seiten, 
36 Abbildungen, Best.-Nr. : 3038 (1984) 

SPIELEN, LERNEN, ARBEITEN mit dem TI99/4A 

von K.-J. Schmidt und G.-P. Raabe — eine eingehende Einfiihrung in die Bedienung 

und Programmierung des TI 99/4A. Mit den vielen Beispielprogrammen holen Sie das 

Beste aus Ihrem Computer heraus. 192 Seiten, 41 Abbildungen, Best.-Nr.: 3039 

(1984) 

MEIN ERSTER COMPUTER 

von Rodnay Zaks - Der unentbehrliche Wegweiser fur jeden, der den Kauf oder den 
Gebrauch eines Mikrocomputers erwagt, das Standardwerk in 3. , iiberarbeiteter Aus- 
gabe. 304 Seiten, 150 Abbildungen, zahlreiche Illustrationen, Best.-Nr.: 3040 (1984) 



ERFOLG MIT MULTIPLAN 

von Th. Ritter - das Tabellenkalkulations-Programm Multiplan hilft Ihnen bei der 
Losung kommerzieller, wissenschaftlicher und allgemeiner Probleme. Lernen Sie die 
Moglichkeiten kennen, Ihre Software optimal zu nutzen! 208 Seiten, ca. 60 Abbildun- 
gen,Best.-Nr.: 3043 (1984) 

FARBSPIELE MIT DEM COMMODORE 64 

von W. Black und M. Richter - 20 herrliche Farbspiele fur Ihren C64, mit Beschrei- 
bung, Programmlisten und Bildschirm-Darstellungen. Fiir mehr Freizeit-SpaB mit 
Ihrem Commodore! 176 Seiten, 58 Abbildungen, Best.-Nr.: 3044 (1984) 

COMMODORE 64 BASIC HANDBUCH 

von D. Hergert — zeigt Ihnen alle Anwendungsmoglichkeiten Ihres C64 und 
beschreibt das vollstandige BASIC- Vokabular anhand von praktischen Beispielen. 
208 Seiten, 92 Abbildungen, Best.-Nr.: 3048 (1984) 

COMMODORE 64 PROGRAMMSAMMLUNG 

von S. R. Trost — mehr als 70 getestete Anwenderprogramme, die direkt eingegeben 
werden konnen. Erlauterungen gewahrleisten eine optimale Nutzung. 192 Seiten, 160 
Abbildungen, Best.-Nr.: 3051 (1983) 

CP/M-HANDBUCH 

von Rodnay Zaks - das Standardwerk ttber CP/M, das meistgebrauchte Betriebssy- 
stem fiir Mikrocomputer. Fiir Anf anger eine verstandliche Einfiihrung, fur Fortge- 
schrittene ein umfassendes Nachschlagewerk fiber die CP/M-Versionen 2.2, 3.0 und 
CCP/M-86 sowie MP/M. 2., iiberarbeitete Ausgabe. 320 Seiten, 56 Abbildungen, 
Best.-Nr.: 3053 (1984) 

MEIN ERSTES COMMODORE 64-PROGRAMM 

von R. Zaks - sollte Ihr erstes Buch zum Commodore 64 sein. Viel Spafi am Lernen 
durch farbige Illustrationen und leichtverstandliche Diagramme, Programmieren mit 
sofortigen Resultaten. 208 Seiten, illustriert, Best.-Nr. -3062 (1984) 

SYBEX MIKROCOMPUTER LEXIKON 

- die schnelle Informationsborse! Uber 1500 Definitionen, Kurzformeln, Begriffs- 
schema der Mikroprozessor-Technik, englisch/deutsches und franzosisch/deutsches 
Worterbuch, Bezugsquellen. 192 Seiten, Format 12,5 x 18 cm, Best.-Nr. : 3035 (1984) 
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